FM Towns: Free Software Collection 8

home *** CD-ROM | disk | FTP | other *** search

/ FM Towns: Free Software Collection 8 / FM Towns Free Software Collection 8.iso / fb386 / taiheiki / sisaku1.bas < prev next >

Wrap

BASIC Source File | 1994-06-01 | 82KB | 1,587 lines

100 CLS:SCREEN@ 0 110 DIM A%(INT((INT(231+7)/8)*451*4+2-1)/2) 120 LOAD@ "0:\DAI.TIF",(640,0) 130 GET@A (640,0)-(870,450),A% 140 LOCATE 27,10,0:PRINT "歴史シミュレ－ションゲ－ム":WAIT 300:CLS 　 150 PUT@A (200,0)-(430,450),A%,PSET,1,1:WHILE MOUSE(2,0)=0:WEND 160 CLS:CLEAR,, 2024,210000:VIEW:PRINT "資料読み込み中" 170 DIM HYOUZI%(INT((INT(200+7)/8)*200*4+2-1)/2),ITI%(30,25),SIKAN%(579) 180 DIM TOSI$(63),TX%(63),TY%(63),TS%(63),TK%(63),SI1%(63),SI2%(63),SI3%(63),SI4%(63),SI5%(63),SS%(63),HYOUZI$(100),BUKA%(50):Z=10:MOZI=0 190 DIM NO%(579),NAMAE$(579),BSN%(579),BB%(579),BT%(579),BZ%(579),BSZ%(579),BC%(579),S1%(579),S2%(579),S3%(579),S4%(579),S5%(579),DEI%(579):NO=6 200 OPEN "I",#1,"BUSYO1.DAT" 210 WHILE EOF(1)=0 220 INPUT#1,NAMAE$,A,B,C,D,E,F,G,H,I,J,K,L,M 230 NAMAE$(NO)=NAMAE$:BSN%(NO)=A:BB%(NO)=B:BT%(NO)=C:BZ%(NO)=D:BSZ%(NO)=E:BC%(NO)=F:S1%(NO)=G:S2%(NO)=H:S3%(NO)=I:S4%(NO)=J:S5%(NO)=K:DEI%(NO)=L:SIKAN%(NO)=M:NO=NO+1 240 WEND 250 CLOSE#1 260 OPEN "I",#1,"TOSI.DAT" 270 WHILE EOF(1)=0 280 INPUT#1,T$,A,B,C,D,E,F,G,H,I 290 TOSI$(Z)=T$:TX%(Z)=A:TY%(Z)=B:TS%(Z)=C:TK%(Z)=D:SI1%(Z)=E:SI2%(Z)=F:SI3%(Z)=G:SI4%(Z)=H:SI5%(Z)=I:Z=Z+1 300 WEND 310 CLOSE#1 320 OPEN "I",#1,"HYOUZI.DAT" 330 WHILE EOF(1)=0 340 INPUT#1,HYOUZI$ 350 HYOUZI$(MOZI)=HYOUZI$:MOZI=MOZI+1 360 WEND 370 CLOSE#1 380 DIM BUNKA$(71),KATU%(71),OWA%(71),BUNYA%(71):Z=1 390 OPEN "I",#1,"ZINBUTU.DAT" 400 WHILE EOF(1)=0 410 INPUT#1,BUNKA$,BUNYA,KATU,OWA 420 BUNKA$(Z)=BUNKA$:BUNYA%(Z)=BUNYA:KATU%(Z)=KATU:OWA%(Z)=OWA:Z=Z+1 430 WEND 440 CLOSE#1 450 LOAD@ "K.TIF",(0,0):DIM MOKUTEKI%(50),TEKI%(50) 460 DIM A1%(60),A2%(60),A3%(60),A4%(60),A5%(60),A6%(60),A7%(60),A8%(60),A9%(60),A10%(60),A11%(60),A12%(60),A13%(60),A14%(60) 470 GET@A (0,0)-(4,11),A1%:GET@A (5,0)-(9,11),A2%:GET@A (10,0)-(21,11),A3%:GET@A (22,0)-(33,11),A4% 480 GET@A (34,0)-(45,11),A5%:GET@A (46,0)-(57,11),A6%:GET@A (58,0)-(69,11),A7%:GET@A (70,0)-(81,11),A8% 490 GET@A (82,0)-(93,11),A9%:GET@A (94,0)-(105,11),A10%:GET@A (106,0)-(117,11),A11%:GET@A (118,0)-(129,11),A12% 500 GET@A (130,0)-(140,11),A13%:GET@A (141,0)-(153,11),A14% 510 LOAD@ "K1.TIF",(0,0) 520 DIM A15%(50),A16%(50) 530 GET@A (0,0)-(6,13),A15%:GET@A (7,0)-(13,13),A16% 540 CLS 550 COLOR 7,0,7,0 560 MOUSE 0 570 MOUSE 1,100,100,1 580 DIM A%(INT((INT((180+7)/8)*20+2-1)/2)) 590 SYMBOL (240,120),"1.1331年8月主上御謀反",1,1,7 600 SYMBOL (240,144),"2.1335年9月中興破綻",1,1,7 610 SYMBOL (240,168),"3.1337年1月一天両帝",1,1,7 620 SYMBOL (240,192),"4.1347年8月正行挙兵",1,1,7 630 SYMBOL (240,216),"5.1353年1月京都争奪戦",1,1,7 640 SYMBOL (240,240),"6.記録再生",1,1,7 650 WHILE MOUSE(2,0)=0 : WEND 660 Y1=MOUSE(1) 670 Y2=FIX((Y1-120)/24)+1 680 GET@ (240,120+(Y2-1)*24)-(419,139+(Y2-1)*24),A%,7 690 PUT@ (240,120+(Y2-1)*24)-(419,139+(Y2-1)*24),A%,PSET,2:ERASE A% 700 IF Y2<=0 THEN 650 ELSE IF Y2>6 THEN 650 710 DIM SYO%(579) 720 ON Y2 GOTO *S1,*S2,*S3,*S4,*S5,*LOAD 730 *S1 :SNRO$="SINARIO1.DAT":SRS=17:NEN=1331:TUKI=8 740 FOR Q=0 TO 579:SYO%(Q)=S1%(Q):NEXT 750 FOR A=10 TO 63 760 SS%(A)=SI1%(A) 770 NEXT:GOTO *SENTAKU 780 *S2 :SNRO$="SINARIO2.DAT":SRS=27:NEN=1335:TUKI=9 790 FOR Q=0 TO 579:SYO%(Q)=S2%(Q):NEXT 800 FOR A=10 TO 63 810 SS%(A)=SI2%(A) 820 NEXT:GOTO *SENTAKU 830 *S3 :SNRO$="SINARIO3.DAT":SRS=31:NEN=1337:TUKI=1 840 FOR Q=0 TO 579:SYO%(Q)=S3%(Q):NEXT 850 FOR A=10 TO 63 860 SS%(A)=SI3%(A) 870 NEXT:GOTO *SENTAKU 880 *S4 :SNRO$="SINARIO4.DAT":SRS=31:NEN=1347:TUKI=8 890 FOR Q=0 TO 579:SYO%(Q)=S4%(Q):NEXT 900 FOR A=10 TO 63 910 SS%(A)=SI4%(A) 920 NEXT:NAMAE$(546)="後村上天皇":GOTO *SENTAKU 930 *S5 :SNRO$="SINARIO5.DAT":SRS=32:NEN=1353:TUKI=1 940 FOR Q=0 TO 579:SYO%(Q)=S5%(Q):NEXT 950 FOR A=10 TO 63 960 SS%(A)=SI5%(A) 970 NEXT:NAMAE$(546)="後村上天皇":NAMAE$(552)="後光厳天皇" 980 *SENTAKU 990 DIM R%(50),RT%(50),X1%(50),Y1%(50),BUGU%(50),PAT%(50),RK%(50),RH%(50),HE%(50),SK%(50),MIN%(50),KUG%(50),KOKU%(50) 1000 OPEN "I",1,SNRO$ 1010 FOR A=1 TO SRS 1020 INPUT#1 ,R,RT,X,Y,PAT,BUGU,RK,RH,HE,SK,MIN,KUG,KOKU 1030 R%(A)=R:RT%(A)=RT:X1%(A)=X:Y1%(A)=Y:PAT%(A)=PAT:BUGU%(A)=BUGU:RK%(A)=RK*10:RH%(A)=RH:HE%(A)=HE:SK%(A)=SK:MIN%(A)=MIN:KUG%(A)=KUG:KOKU%(A)=KOKU 1040 NEXT 1050 CLOSE#1:SRS=A 1060 FOR Q=1 TO A 1070 IF Q<=6 THEN E=R%(Q):SYMBOL (26+(Q-1)*100,0),NAMAE$(E),1,1,%15 1080 IF Q<=12 THEN E=R%(Q):SYMBOL (26+(Q-7)*100,16),NAMAE$(E),1,1,%15 1090 IF Q<=18 THEN E=R%(Q):SYMBOL (26+(Q-13)*100,32),NAMAE$(E),1,1,%15 1100 IF Q<=24 THEN E=R%(Q):SYMBOL (26+(Q-19)*100,48),NAMAE$(E),1,1,%15 1110 IF Q<=30 THEN E=R%(Q):SYMBOL (26+(Q-25)*100,64),NAMAE$(E),1,1,%15 1120 IF Q<=36 THEN E=R%(Q):SYMBOL (26+(Q-31)*100,80),NAMAE$(E),1,1,%15 1130 IF Q<=42 THEN E=R%(Q):SYMBOL (26+(Q-37)*100,96),NAMAE$(E),1,1,%15 1140 NEXT 1150 SYMBOL (270,100),"どの人物にしますか",1,1,%15 1160 MOUSE 0:MOUSE 1,26,0,1:MOUSE 4,26,0,626,112 1170 IF MOUSE(2,0)=0 THEN 1170 1180 X1=FIX((MOUSE(0)-26)/100):Y1=FIX(MOUSE(1)/16):N=FIX(A/6)+1:M=A-N*6 1190 R=6*Y1+X1+1 1200 IF R>A THEN 1170 1210 LINE (270,360)-(639,392),PSET,%0,BF,%0:MOUSE 1,340,388,1 1220 IF R%(R)=0 THEN 1170 1230 PLAYR=R:SYMBOL (270,360),NAMAE$(R%(PLAYR))+"でよろしいですか",1,1,%15 1240 SYMBOL (300,376),"はいいいえ",1,1,%15:MOUSE 4,300,376,396,392 1250 WHILE MOUSE(2,0)=0:WEND 1260 X1=MOUSE(0):Y1=MOUSE(1) 1270 IF Y1>=392 AND Y1<=375 AND X1<=299 AND X1>=396 THEN 1250 1280 IF X1>=332 AND X1<=348 THEN 1250 1290 IF X1<=332 THEN 1310 ELSE LINE (270,360)-(639,392),PSET,%0,BF,%0 1300 SYMBOL (270,360),"もう一度選んでください",1,1,%15:WAIT 100:GOTO 1160 1310 OPEN "O",#1,"SYO.DAT":OPEN "O",#2,"JOUKYOU.DAT" 1320 FOR Q=0 TO 579 1330 SYO=SYO%(Q) 1340 WRITE #1,SYO 1350 NEXT 1360 CLOSE#1,#2 1370 FOR Q=0 TO 50:MOKUTEKI%(Q)=-1:TEKI%(Q)=0:NEXT 1380 CLS:PRINT "準備はととのいました･左クリックで始まります" 1390 WHILE MOUSE(2,0)=0 : WEND:CLS:SCREEN@ 0:DIM Q%(41000) 1400 VIEW (0,0)-(1023,511) 1410 LOAD@ "MM2.TIF",(640,0) 1420 GET@A (640,0)-(1019,139),Q%:PUT@A (450,0)-(829,139),Q%,PSET,1/2,1/2 1430 MOUSE 0:ERASE Q%:X1=800:Y1=70 1440 MOUSE 4,0,0,639,479:TOUITU=0:SYUU=1:ZK=4 1450 GOSUB *NANKA:LOCATE 48,4:PRINT NEN$+TUKI$+SYUU$ 1460 GOSUB *MOZI_HYOUZI 1470 *TAIHEIKI 1480 GOSUB *NANKA:LOCATE 48,4:PRINT NEN$+TUKI$+SYUU$ 1490 GOSUB *HYOUZI 1500 GOSUB *MAIN:SYUU=SYUU+1:TOUITU=0 1510 IF SYUU=5 THEN SYUU=1:TUKI=TUKI+1:GOSUB *BUSYOU 1520 IF TUKI=13 THEN TUKI=1:NEN=NEN+1 1530 FOR O=1 TO SRS 1540 IF BUGU%(O)=BUGU%(PLAYR) THEN TOUITU=TOUITU+1 1550 IF BUGU%(O)=-1 THEN TOUITU=TOUITU+1 1560 NEXT 1570 IF TOUITU=SRS THEN *ENDING ELSE *TAIHEIKI 1580 *MAIN:RANDOMIZE TIME:SYUTUZIN_ZYUNBI=0 1590 RD=FIX(RND*10) 1600 FOR A=1 TO SRS:R=R%(A):LOCATE 0,18:PRINT "思考中"+NAMAE$(R%(A))+" " 1610 IF A=PLAYR THEN GOSUB *USER 1620 IF A=PLAYR THEN 1720 1630 IF HE%(A)<=0 THEN PAT%(A)=-1:BUGU%(A)=-1 1640 IF PAT%(A)=-1 THEN 1720 1650 IF PAT%(A)>=3 AND PAT%(A)<=9 THEN 1720 1660 IF RT%(A)=-1 THEN GOSUB *YASAGASI 1670 IF PAT%(A)=0 THEN SIREI=0:GUNBI=0:GOSUB *SIRO_TOSI 1680 IF PAT%(A)=1 THEN 1720 1690 IF PAT%(A)=13 THEN SIREI=0:GUNBI=0:GOSUB *TERA 1700 IF PAT%(A)>=20 THEN 1720 1710 IF MOKUTEKI%(A)=0 THEN MOKUTEKI%(A)=-1 1720 NEXT:RETURN 1730 *SIRO_TOSI:SYUTUZIN=0 1740 GOSUB *TEKI_TYOUSA 1750 SIREI=BSN%(A)*RD-BSZ%(A)*5+GUNBI 1760 IF SIREI<-2 THEN GOSUB *NAISEI2 1770 IF SIREI<=3 AND SIREI>=-2THEN GOSUB *NAISEI1 1780 IF SIREI<=8 AND SIREI>3 THEN GOSUB *GAIKOU 1790 IF SIREI>8 THEN GOSUB *GUNZI 1800 RETURN 1810 *GUNZISA 1820 HEISISA=(HE%(S)*SK%(S)*7\6-HE%(A)*SK%(A))\100+1:GUNBI=GUNBI+5 1830 IF HEISISA>0 THEN GUNBI=GUNBI+13 1840 IF HEISISA<0 THEN SYUTUZIN=SYUTUZIN+3 1850 TEKI%(S)=S 1860 RETURN 1870 *GUNZI 1880 SYUTUZIN=SYUTUZIN+(HE%(A)*SK%(A)\200000)-BSN%(A)-RD+BB%(A)*2-GUNBI 1890 IF SYUTUZIN<-1 THEN GOSUB *TYOHEI 1900 IF SYUTUZIN<=6 AND SYUTUZIN>=-1 THEN RD1=RD\5+1:ON RD1 GOSUB *TYOHEI,*KUNREN 1910 IF SYUTUZIN<=8 AND SYUTUZIN>6 THEN GOSUB *KUNREN 1920 IF SYUTUZIN>8 THEN SYUTU=A:GOSUB *SYUTU_A 1930 RETURN 1940 *TYOHEI:BZ_A=6-BZ%(R%(A)) 1950 TYOHEISU=(TK%(RT%(A))+1)*50 1960 MIN_B=MIN%(A)-TYOHEISU\100-BZ_A:MIN_C=MIN_B-BSZ%(R%(A))*3 1970 IF MIN_C<=10 THEN TYOHEISU=TYOHEISU-100:GOTO 1960 1980 IF TYOHEISU<=0 OR HE%(A)>30000 THEN *KUNREN 1990 SKA=SK%(A)-(HE%(A)+TYOHEISU)\HE%(A)*(10-BT%(R%(A))):SKB=SKA-BSN%(R%(A))*3 2000 IF SKB<=10 THEN TYOHEISU=TYOHEISU-100:GOTO 1960 2010 MIN%(A)=MIN_B:HE%(A)=HE%(A)+TYOHEISU:SK%(A)=SKA 2020 RETURN 2030 *KUNREN 2040 IF SK%(A)>=90 THEN *GAIKOU 2050 IF PAT%(A)=13 THEN SK_A=20-HE%(A)\5000:SK_B=SK%(A)+SK_A:GOTO 2070 2060 SK_A=30-HE%(A)\1000+BT%(R%(A))+RD:SK_B=SK%(A)+SK_A 2070 IF SK_B>=101 THEN SK%(A)=100 ELSE SK%(A)=SK_B 2080 RETURN 2090 *SYUTU_A:BUKA=0:RHHE=RH%(SYUTU)*(RD\3+1)-HE%(SYUTU):SYUTU_ZYUNBI=1 2100 GUNBI1=GUNBI-RD\3 2110 IF RHHE<0 THEN GOSUB *KOUKAN 2120 IF MOKUTEKI%(SYUTU)<>-1 THEN 2150 2130 IF GUNBI1>=8 THEN *GAIKOU 2140 IF MOKUTEKI%(SYUTU)=-1 THEN GOSUB *MOKUTEKITI 2150 IF MOKUTEKI%(SYUTU)<>-1 THEN GOSUB *SYUTU_B 2160 RETURN 2170 *SYUTU_B:L=MOKUTEKI%(SYUTU) 2180 IF L=-1 THEN RETURN 2190 IF L>=1000 THEN GOSUB *SYUTU_C 2200 KAKUDO_X=X1%(SYUTU)-X1%(L):KAKUDO_Y=Y1%(SYUTU)-Y1%(L) 2210 KAKUDO_XY=ABS(X1%(SYUTU)-X1%(L))-ABS(Y1%(SYUTU)-Y1%(L)) 2220 IF KAKUDO_XY>=0 AND KAKUDO_X>=0 THEN PAT%(SYUTU)=9 2230 IF KAKUDO_XY>=0 AND KAKUDO_X<0 THEN PAT%(SYUTU)=5 2240 IF KAKUDO_XY<=0 AND KAKUDO_Y>=0 THEN PAT%(SYUTU)=3 2250 IF KAKUDO_XY<=0 AND KAKUDO_Y<0 THEN PAT%(SYUTU)=7 2260 RETURN 2270 *SYUTU_C 2280 IF L>=2000 THEN L=L-2000:RETURN ELSE L=L-1000 2290 KAKUDO_X=X1%(SYUTU)-TX%(L):KAKUDO_Y=Y1%(SYUTU)-TY%(L) 2300 KAKUDO_XY=ABS(X1%(SYUTU)-TX%(L))-ABS(Y1%(SYUTU)-TY%(L)) 2310 RETURN 2220 2320 *NAISEI1 2330 P=RD+BSZ%(R%(A)):O=RT%(A) 2340 IF P<7 THEN *TYOHEI 2350 IF P=7 OR P=8 THEN IF SK%(A)<90 THEN *KUNREN 2360 IF RH%(A)>=RK%(A) THEN L=RH%(A)\(15-BSZ%(R%(A)))+RH%(A)\100:RH%(A)=RH%(A)-L:P=0 ELSE L=RK%(A)\(15-BSZ%(R%(A)))+RK%(A)\100:RK%(A)=RK%(A)-L:P=-2 2370 MIN%(A)=MIN%(A)+L\((MIN%(A)+RD+1)*(9-BZ%(R%(A))+P)*(1+TK%(O))) 2380 IF MIN%(A)>=100 THN MIN%(A)=100 2390 RETURN 2400 *NAISEI2:O=0:BUKA=0 2410 FOR L=0 TO 579: P=SYO%(L)-3000 2420 IF P>0 AND P=R%(A) THEN O=O+1:GOSUB *HORYO 2430 P=SYO%(L):IF P=R%(A) THEN BUKA=BUKA+1 2440 NEXT 2450 IF O>=1 THEN RETURN 2460 IF BUKA=1 THEN BUSYO=A:GOTO *ZINZAI 2470 O=RT%(A):I=0:FOR L=0 TO 579 2480 IF I=>1 THEN RETURN 2490 P=SYO%(L)-2000:IF P>0 AND P=O THEN I=I+1:GOSUB *ENKAI 2500 NEXT 2510 IF I>=1 THEN RETURN ELSE *NAISEI1 2520 *KOUKAN 2530 L=RK%(A)\10+RK%(A)\100:RK%(A)=RK%(A)-L 2540 RH%(A)=RH%(A)+L*2\3 2550 RETURN 2560 *HORYO:P=BC%(A)+RD\4-BZ%(L) 2570 IF P>0 THEN SYO%(L)=A 2580 IF P=0 OR P=-1 THEN SYO%(L)=2000+RT%(A) 2590 IF P<=-2 THEN SYO%(L)=0 2600 RETURN 2610 *ENKAI 2620 L=RK%(A)\20+RK%(A)\100:RK%(A)=RK%(A)-L 2630 KUG%(A)=KUG%(A)+BZ%(R%(A))-1:IF KUG%(A)>100 THEN KUG%(A)=100 2640 SIZI=KUG%(A)+KOKU%(A) 2650 IF SIZI>150 THEN KOKU%(A)=KOKU%(A)-1:GOTO 2640 2660 RETURN 2670 *ZINZAI:KINK=0:BUKA=0 2680 FOR L=1 TO SRS 2690 IF BUSYO<>L AND BUGU%(BUSYO)=BUGU%(L) THEN KYO=FIX(SQR((X1%(BUSYO)-X1%(L))^2+(Y1%(BUSYO)-Y1%(L))^2)) ELSE 2710 2700 IF KINK>KYO OR KINK=0 THEN KINK=KYO:P=L 2710 NEXT:IF P=PLAYR THEN COM=BUSYO:GOTO *COM_ZINZAIYOUKYU 2720 FOR L=0 TO 579 2730 IF R%(P)=SYO%(L) THEN BUKA=BUKA+1 2740 NEXT 2750 IF BUKA<=3 THEN RETURN 2760 FOR L=0 TO 579 2770 IF R%(P)=SYO%(L) THEN SYO%(L)=BUSYO:RETURN 2780 NEXT 2790 *GAIKOU:KINK=0:KAIDAN=0 2800 IF GUNBI>=5 THEN GOSUB *KAIDAN 2810 IF KAIDAN=1 THEN RETURN 2820 FOR L=1 TO SRS 2830 IF A<>L AND BUGU%(A)<>BUGU%(L) THEN KYO=FIX(SQR((X1%(A)-X1%(L))^2+(Y1%(A)-Y1%(L))^2)) 2840 IF KINK>KYO OR KINK=0 THEN KINK=KYO:P=L 2850 NEXT 2860 HEA=HE%(A):SKA=SK%(A):HEP=HE%(P):SKP=SK%(P) 2870 L!=HEP*SKP*(BC%(R%(P))*3+1+RD\2)-HEA*SKA 2880 L1!=HEA*SKA*(BC%(R%(A))*50+1+RD\2)-HEP*SKP 2890 IF L!<0 AND P<>PLAYR THEN *KANKOKU 2900 IF L!<0 AND P=PLAYR THEN COM=A:GOTO *COM_KANKOKU 2910 IF L1!<0 THEN *KIJUN ELSE *MOTENASI 2920 *KAIDAN:KAIDAN=1 2930 FOR L=1 TO SRS 2940 IF A<>L AND BUGU%(A)=BUGU%(L) THEN KYO=FIX(SQR((X1%(A)-X1%(L))^2+(Y1%(A)-Y1%(L))^2)) ELSE 2960 2950 IF KINK>KYO OR KINK=0 THEN KINK=KYO:ENGUN=L 2960 NEXT 2970 IF MOKUTEKI%(ENGUN)<>-1 THEN RETURN 2980 FOR L=1 TO SRS 2990 IF TEKI%(L)<>0 THEN KYO=FIX(SQR((X1%(A)-X1%(L))^2+(Y1%(A)-Y1%(L))^2)) ELSE 3010 3000 IF KINK>KYO OR KINK=0 THEN KINK=KYO:OOO=L 3010 NEXT 3020 IF ENGUN=PLAYR THEN *COM_KAIDAN 3030 HEO=HE%(OOO):SKO=SK%(OOO):BSNP=BSN%(R%(ENGUN)):HEA=HE%(A):SKA=SK%(A):HEP=HE%(ENGUN):SKP=SK%(ENGUN) 3040 L=HEO*SKO*BSNP-HEA*SKA-HEP*SKP 3050 KYO=FIX(SQR((X1%(ENGUN)-X1%(OOO))^2+(Y1%(ENGUN)-Y1%(OOO))^2)) 3060 RH!=RH%(OOO)/(HE%(OOO)+1):RH=FIX(RH!*50):KYO=KYO*2-RH\2-BZ%(R%(A)) 3070 IF L<0 THEN RETURN 3080 IF KYO>=-3 THEN RETURN 3090 MOKUTEKI%(A)=OOO:SYUTU=A:GOSUB *SYUTU_A 3100 IF MOKUTEKI%(A)=-1 THEN 3140 3110 IF ENGUN=PLAYR THEN COM=A:GOTO *COM_KAIDAN 3120 MOKUTEKI%(ENGUN)=OOO:SYUTU=ENGUN:GOSUB *SYUTU_A 3130 IF MOKUTEKI%(ENGUN)=-1 THEN MOKUTEKI%(A)=-1 3140 RETURN 3150 *KANKOKU:IF BC%(R%(P))=0 OR BC%(R%(P))=5 THEN RETURN 3160 L=BZ%(R%(A))+RD-BC%(R%(P)):K=RT%(P) 3170 IF L>=9 AND L1<0 THEN BUGU%(P)=BUGU%(A):L=RT%(A) ELSE RETURN 3180 IF (PAT%(P)=0 OR PAT%(P)=13) AND (SS%(K)=2 OR SS%(K)=1) THEN SS%(K)=SS%(L):RETURN 3190 FOR O=1 TO SRS 3200 IF PAT%(O)=0 AND RT%(O)=K THEN RT%(P)=-1:KOKU%(P)=1:RETURN 3210 NEXT 3220 RETURN 3230 *KIJUN:IF BC%(R%(A))=0 OR BC%(R%(A))=5 THEN RETURN 3240 L=BZ%(R%(P))-RD+BC%(R%(A)):K=RT%(P) 3250 IF L>=5 THEN BUGU%(A)=BUGU%(P):L=RT%(A) ELSE RETURN 3260 IF (PAT%(A)=0 OR PAT%(A)=13) AND (SS%(L)=2 OR SS%(L)=1) THEN SS%(L)=SS%(K):RETURN 3270 FOR O=1 TO SRS 3280 IF PAT%(O)=0 AND RT%(O)=L THEN RT%(A)=-1:KOKU%(A)=1:RETURN 3290 NEXT 3300 RETURN 3310 *MOTENASI 3320 L=RK%(A)\15:KOKU%(A)=KOKU%(A)+BZ%(R%(A)) 3330 IF KOKU%(A)>100 THEN KOKU%(A)=100 3340 SISI=KUG%(A)+KOKU%(A) 3350 IF SIZI>150 THEN KUG%(A)=KUA%(A)-1:GOTO 3340 3360 RETURN 3370 *TERA:SYUTUZIN=0 3380 GOSUB *TEKI_TYOUSA 3390 SIREI=BSN%(R%(A))*RD-BSZ%(R%(A))*5+GUNBI:L=RD\5+1 3400 IF SIREI<-2 THEN ON L GOSUB *TERA_TYOUTATU,*TERA_HUKKOU 3410 IF SIREI<=3 AND SIREI>=-2 THEN GOSUB *NAISEI2 3420 IF SIREI<=8 AND SIREI>3 THEN GOSUB *GAIKOU 3430 IF SIREI>8 THEN GOSUB *GUNZI 3440 RETURN 3450 *TERA_TYOUTATU 3460 L=MIN%(A)\10*BSZ%(R%(A))*10*(RD\3+1) 3470 IF RH%(A)>30000 THEN RH%(A)=30000 3480 L1=MIN%(A)-(6-BZ%(R%(A)))*L\100-1:L2=L1-BZ%(A)*3 3490 IF L2<=0 THEN L=L-200:GOTO 780 3500 IF L<=50 THEN SIREI=0:RETURN 3510 MIN%(A)=L1:RH%(A)=RH%(A)+L:RETURN 3520 *TERA_HUKKOU:O=RT%(A) 3530 IF RH%(A)>=RK%(A) THEN L=RH%(A)\(15-BSZ%(R%(A)))+RH%(A)\100:RH%(A)=RH%(A)-L:P=0 ELSE L=RK%(A)\(15-BSZ%(R%(A)))+RK%(A)\100:RK%(A)=RK%(A)-L:P=-2 3540 MIN%(A)=MIN%(A)+L\(MIN%(A)+RD)\(9-BZ%(R%(A))+P)\TS%(O) 3550 IF MIN%(A)>=100 THN MIN%(A)=100 3560 RETURN 3570 *ZIN:IF A=PLAYR THEN *USER 3580 GOSUB *TEKI_TYOUSA 3590 IF RT%(A)=-1 THEN GOSUB *YASAGASI 3600 SIREI=BSN%(R%(A))*RD-BSZ%(R%(A))*5+GUNBI 3610 IF SIREI<=0 THEN GOSUB *ZIN_NAISEI 3620 IF SIREI<=10 AND SIREI>0 THEN GOSUB *GAIKOU 3630 IF SIREI>10 THEN GOSUB *ZIN_GUNZI 3640 RH%(A)=RH%(A)-HE%(A)\65:RETURN 3650 *ZIN_GUNZI 3660 IF HE%(A)<=500 THEN *IDO 3670 GOSUB *YOUSUMI 3680 RETURN 3690 *ZIN_NAISEI 3700 L=(RH%(A)*(15-BSN%(R%(A)))\HE%(A)) 3710 IF L>=2 THEN *ZIN_SIKI 3720 IF L<=0 THEN *IDO 3730 L=BSZ%(A)+RD 3740 IF MIN%(A)<=5 THEN *IDO 3750 IF L>=8 THEN P=(BSZ%(R%(A))+BZ%(R%(A)))*10*(RD\3+1):MIN%(A)=MIN%(A)-1 ELSE P=BB%(R%(A))*(RD\4+1)*50:MIN%(A)=MIN%(A)-(10-BZ%(R%(A)))*2 3760 RH%(A)=RH%(A)+P:IF RH%(A)>30000 THEN RH%(A)=30000 3770 IF MIN%(A)<0 THEN MIN%(A)=0 3780 RETURN 3790 *ZIN_SIKI:P=RH%(A)\(2+L):SK_A=30-HE%(A)\P+BT%(R%(A))-RD 3800 IF SK%(A)>=100 THEN RETURN 3810 IF SK_A<=0 THEN RETURN 3820 SK_B=SK%(A)+SK_A 3830 IF SK_B>=101 THEN SK%(A)=100 ELSE SK%(A)=SK_B 3840 RH%(A)=RH%(A)-P 3850 RETURN 3860 *YOUSUMI 3870 IF GUNBI=5 THEN 3910 3880 IF GUNBI>=13 THEN *IDO 3890 IF MOKUTEKI%(A)=-1 THEN GOSUB *GAIKOU 3900 IF MOKUTEKI%(A)=-1 THEN RETURN ELSE SYUTU=A:GOTO *SYUTU_B 3910 FOR P=1 TO SRS 3920 IF TEKI%(P)<>0 THEN O=P 3930 NEXT 3940 IF MOKUTEKI%(A)=O THEN SYUTU=A:GOTO *SYUTU_B ELSE *GAIKOU 3950 *IDO:T=SK%(A)-BSN%(R%(A))*3:L=(RH%(A)*(15-BSN%(R%(A)))\HE%(A)):TEKI_A=0:IF A=PLAYR THEN 4100 3960 GOSUB *TEKI_TYOUSAIDO 3970 IF RT%(A)=-1 THEN GOSUB *YASAGASI 3980 IF SK%(A)<0 THEN HE%(A)=HE%(A)-HE%(A)\100:PAT%(A)=1:RETURN 3990 IF HE%(A)<=200 THEN MOKUTEKI%(A)=RT%(A)+1000 4000 IF MIN%(A)<=5 OR SK%(A)<=10 THEN MOKUTEKI%(A)=RT%(A)+1000 4010 IF L<=0 THEN MOKUTEKI%(A)=RT%(A)+1000 4020 IF TEKI_A>=4 THEN MOKUTEKI%(A)=RT%(A)+1000 4030 IF MOKUTEKI%(A)>=1000 THEN 4090 4040 IF T<=20 THEN PAT%(A)=1:RETURN 4050 IF TEKI_A>=3 THEN PAT%(A)=1:RETURN 4060 IF L<=3 THEN PAT%(A)=1:RETURN 4070 IF MOKUTEKI%(A)=-1 THEN PAT%(A)=1:GOTO 4100 4080 IF MOKUTEKI%(A)=999 THEN GOSUB *GOURYU_B:GOTO 4090 4090 SYUTU=A:GOSUB *SYUTU_B 4100 RH%(A)=RH%(A)-HE%(A)\50:SK%(A)=SK%(A)-1 4110 IF A=PLAYR THEN SUUZI=RH%(A):GOSUB *KANSUZI:LOCATE 60,8:PRINT KANZI$+" " 4120 IF A=PLAYR THEN SUUZI=SK%(A):GOSUB *KANSUZI:LOCATE 60,14:PRINT KANZI$+" " 4130 IF A=PLAYR AND MOUSE(2,1)=-1 THEN *USER 4140 RETURN 4150 *IKUSA:TEKI=0:MIKATA=0:O=MOKUTEKI%(A):BB1=0:BB2=0:I=0:I1=0 4160 IF SK%(A)<0 THEN SK%(A)=0:GOTO*IDO 4170 IF MOKUTEKI%(A)=-1 THEN *IDO 4180 IF MOKUTEKI%(A)>=1000 THEN *IDO 4190 FOR L=1 TO SRS 4200 IF MOKUTEKI%(L)=A AND PAT%(L)>=20 THEN TEKI=TEKI+HE%(L)*(SK%(L)+1):BB1=BB1+BB%(R%(L)):I=I+1 4210 IF MOKUTEKI%(L)=O AND PAT%(L)>=20 THEN MIKATA=MIKATA+HE%(L)*(SK%(L)+1):BB2=BB2+BB%(R%(L)):I1=I1+1 4220 NEXT 4230 IF I=0 THEN SYUTU=A:GOSUB *SYUTU_B:RETURN 4240 IF I1=0 THEN SYUTU=O:GOSUB *SYUTU_B:RETURN 4250 IF O=PLAYR OR A=PLAYR THEN GOSUB *COM_KASSEN 4260 LOCATE 0,17:PRINT NAMAE$(R%(A))+"軍と"+NAMAE$(R%(O))+"軍交戦中 " 4270 IF PAT%(A)=20 THEN HIGA=4 4280 IF PAT%(A)=21 THEN HIGA=0 4290 IF PAT%(A)=22 THEN HIGA=KOKU%(A)\5+2:IF RT%(A)=40 THEN HIGA=0 4300 IF PAT%(A)=23 THEN HIGA=9 4310 IF PAT%(O)=20 THEN HIGA1=4 4320 IF PAT%(O)=21 THEN HIGA1=0 4330 IF PAT%(O)=22 THEN HIGA1=KOKU%(O)\5+2:IF RT%(O)=40 THEN HIGA1=0 4340 IF PAT%(O)=23 THEN HIGA1=9 4350 BB1=(BB2+HIGA1*I1+MIKATA\100000)\I:BB2=(BB1+HIGA*I+TEKI\100000)\I1 4360 L=(BT%(R%(A))+(MIKATA-TEKI)\500000)\I:L1=(BT%(R%(O))+(TEKI-MIKATA)\500000)\I1 4370 HE%(A)=HE%(A)-BB1*10-1:SK%(A)=SK%(A)-L 4380 HE%(O)=HE%(O)-BB2*10-1:SK%(O)=SK%(O)-L1 4390 IF HE%(A)<=0 OR SK%(A)<=10 THEN SYUTU=A:GOSUB *HAISEN 4400 IF HE%(A)<=0 THEN MOKUTEKI%(O)=RT%(A)+1000 4410 IF HE%(O)<=0 OR SK%(O)<=10 THEN SYUTU=O:GOSUB *HAISEN 4420 IF HE%(O)<=0 THEN MOKUTEKI%(A)=RT%(A)+1000 4430 IF MOKUTEKI%(O)>=999 THEN SYUTU=O:GOSUB *HYOUZI_IDOB 4440 IF MOKUTEKI%(A)>=999 THEN SYUTU=A:GOSUB *HYOUZI_IDOB 4450 IF SK%(A)>100 THEN SK%(A)=100 4460 IF SK%(O)>100 THEN SK%(O)=100 4470 IF PAT%(O)=22 THEN MOKUTEKI%(O)=-1 ELSE 4490 4480 IF SS%(RT%(O))=4 THEN PAT%(O)=13 ELSE PAT%(O)=0 4490 IF PAT%(A)=22 THEN MOKUTEKI%(A)=-1 ELSE 4510 4500 IF SS%(RT%(A))=4 THEN PAT%(A)=13 ELSE PAT%(A)=0 4510 RH%(A)=RH%(A)-HE%(A)\40:SK%(A)=SK%(A)-1 4520 RH%(O)=RH%(O)-HE%(O)\40:SK%(O)=SK%(O)-1 4530 RETURN 4540 *HAISEN 4550 IF HE%(SYUTU)<=0 THEN *ZENMETU 4560 IF PAT%(SYUTU)=20 OR PAT%(SYUTU)=21 THEN *TAIKYAKU 4570 IF PAT%(SYUTU)=23 THEN *TAIKYAKU 4580 IF PAT%(SYUTU)=22 AND SK%(SYUTU)<-6 THEN *HAISOU 4590 HE%(SYUTU)=HE%(SYUTU)-HE%(SYUTU)\20:IF SK%(SYUTU)<0 THEN SK%(SYUTU)=0:RETURN 4600 *TAIKYAKU:IF SYUTU=PLAYR THEN *USER_TAIKYAKU 4610 IF HE%(SYUTU)<=0 THEN *ZENMETU 4620 MOKUTEKI%(SYUTU)=RT%(SYUTU)+1000 4630 IF SK%(SYUTU)<0 THEN SK%(SYUTU)=0 4640 RETURN 4650 *HAISOU:IF SYUTU=PLAYR THEN *USER_HAISEN 4660 RT%(SYUTU)=-1:SK%(SYUTU)=0:MIN%(SYUTU)=MIN%(SYUTU)\2:KOKU%(SYUTU)=KOKU%(SYUTU)\2 4670 IF SK%(SYUTU)<0 THEN SK%(SYUTU)=0 4680 GOSUB *YASAGASI 4690 IF RT%(SYUTU)=-1 THEN GOSUB *GOURYU_B 4700 RETURN 4710 *ZENMETU:IF SYUTU=PLAYR THEN *USER_ZENMETU 4720 X1%(SYUTU)=-1:Y1%(SYUTU)=-1:PAT%(SYUTU)=-1:BUGU%(SYUTU)=-1:MIN%(SYUTU)=-1:KUG%(SYUTU)=-1:KOKU%(SYUTU)=-1 4730 FOR M=0 TO 579 4740 IF SYO%(M)=R%(SYUTU) AND MOKUTEKI%(A)=SYUTU THEN SYO%(M)=R%(A)+3000 4750 IF SYO%(M)=R%(SYUTU) AND MOKUTEKI%(O)=SYUTU THEN SYO%(M)=R%(O)+3000 4760 NEXT 4770 IF SS%(RT%(SYUTU))=2 OR SS%(RT%(SYUTU))=1 TEHN SS%(RT%(SYUTU))=0 4780 FOR I=1 TO 3:BEEP 1:WAIT 50:BEEP 0:WAIT 40:NEXT 4790 LOCATE 0,20:PRINT NAMAE$(R%(SYUTU))+"軍は全滅しました " 4800 RETURN 4810 *MOKUTEKITI:TEKI_A=0:TEKI_B=0:KINK=0 4820 FOR L=1 TO SRS 4830 IF TEKI%(L)<>0 THEN TEKI_A=TEKI_A+1 4840 NEXT 4850 IF TEKI_A>=1 THEN 4900 4860 FOR L=1 TO SRS 4870 IF A<>L AND BUGU%(A)<>BUGU%(L) THEN KYO=FIX(SQR((X1%(A)-X1%(L))^2+(Y1%(A)-Y1%(L))^2)) ELSE 4890 4880 IF KINK>KYO OR KINK=0 THEN KINK=KYO:TEKI_B=L 4890 NEXT 4900 WHILE P_T=0 4910 FOR L=1 TO SRS 4920 IF TEKI%(L)<>0 OR L=TEKI_B THEN P_T=L 4930 NEXT 4940 WEND 4950 MOKUTEKI%(A)=P_T:RETURN 4960 *GOURYU:L=MOKUTEKI%(A) 4970 IF L>=2000 THEN L=L-2000 4980 IF L<1064 AND L>1000 THEN L=L-1000:GOTO *GOURYU_A 4990 IF L=PLAYR THEN COM=A:GOTO *COM_GOURYU 5000 FOR O=0 TO 579 5010 IF SYO%(O)=R%(A) THEN SYO%(O)=R%(L) 5020 NEXT 5030 RK!=RK%(A)+RK%(L):RH!=RH%(A)+RH%(L) 5040 IF RK!>30000 THEN RK%(L)=30000 ELSE RK%(L)=RK! 5050 IF RH!>30000 THEN RH%(L)=30000 ELSE RH%(L)=RH! 5060 SK%(L)=(HE%(A)*SK%(A)+HE%(L)*SK%(L))\(HE%(A)+HE%(L)) 5070 HE!=HE%(A)+HE%(L) 5080 IF HE!>30000 THEN HE%(L)=30000 ELSE HE%(L)=HE! 5090 R%(A)=-1:RT%(A)=-1:X1%(A)=-1:Y1%(A)=-1:PAT%(A)=-1:BUGU%(A)=-1:MIN%(A)=-1:KUG%(A)=-1:KOKU%(A)=-1:MOKUTEKI%(A)=-1 5100 RETURN 5110 *GOURYU_A 5120 IF RT%(A)=-1 THEN RT%(A)=L 5130 MOKUTEKI%(A)=-1:X1%(A)=TX%(L):Y1%(A)=TY%(L) 5140 IF SS%(RT%(A))=4 THEN PAT%(A)=13:RETURN 5150 IF SS%(RT%(A))=3 THEN PAT%(A)=0:RETURN 5160 PAT%(A)=0:SS%(RT%(A))=2-BUGU%(A) 5170 RETURN 5180 *GOURYU_B:KINK=0 5190 FOR L=1 TO SRS 5200 IF A<>L AND BUGU%(A)=BUGU%(L) THEN KYO=FIX(SQR((X1%(A)-X1%(L))^2+(Y1%(A)-Y1%(L))^2)) ELSE 5220 5210 IF KINK>KYO OR KINK=0 THEN KINK=KYO:MOKUTEKI%(A)=L+2000 5220 NEXT 5230 RETURN 5240 *HYOUZI:ZX=45:ZY=38:ZK=4 5250 FOR HYO=1 TO 8 5260 GET@A (X1-ZX,Y1-ZY)-(X1+ZX-1,Y1+ZY-1),HYOUZI% 5270 PUT@A (640,140)-(640+ZX*2-1,140+ZY*2-1),HYOUZI%,PSET,ZK,ZK 5280 FOR A=10 TO 63 5290 TX=TX%(A)+640:TY=TY%(A):Q=SS%(A) 5300 IF X1-ZX>TX OR X1+ZY-2<TX THEN 5400 5310 IF Y1-ZX>TY OR Y1+ZY-2<TY THEN 5400 5320 IF Q=0 THEN 5400 5330 IF Q=2 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+640+11,(ZY-(Y1-TY))*ZK+140+11),A11%,MATTE,1,1,%15 5340 IF Q=1 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+640+11,(ZY-(Y1-TY))*ZK+140+11),A12%,MATTE,1,1,%15 5350 IF Q=4 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+640+10,(ZY-(Y1-TY))*ZK+140+11),A13%,MATTE,1,1,%15 5360 IF Q=3 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+640+12,(ZY-(Y1-TY))*ZK+140+11),A14%,MATTE,1,1,%15 5370 K=(ZX-X1+TX)*ZK\12:K1=(ZY-Y1+TY)*ZK\12 5380 IF K<0 OR K1<0 THEN 5400 5390 ITI%((ZX-X1+TX)*ZK\12,(ZY-Y1+TY)*ZK\12)=A+1000 5400 NEXT 5410 FOR A=1 TO SRS:LOCATE 0,18:PRINT "移動中"+NAMAE$(R%(A))+" " 5420 IF PAT%(A)>=3 AND PAT%(A)<=9 THEN GOSUB *IDO:GOSUB *HYOUZI_IDO 5430 IF PAT%(A)>=20 AND PAT%(A)<=23 THEN GOSUB *IKUSA 5440 IF PAT%(A)=1 THEN GOSUB *ZIN 5450 TX=X1%(A)+640:TY=Y1%(A):Q=PAT%(A)+BUGU%(A) 5460 IF X1-ZX>TX OR X1+ZX-2<TX THEN 5650 5470 IF Y1-ZY>TY OR Y1+ZY-2<TY THEN 5650 5480 IF PAT%(A)=0 AND BUGU%(A)=0 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+644,(ZY-(Y1-TY))*ZK+151),A1%,MATTE,1,1,%15 5490 IF PAT%(A)=0 AND BUGU%(A)=1 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+644,(ZY-(Y1-TY))*ZK+151),A2%,MATTE,1,1,%15 5500 IF PAT%(A)=1 AND BUGU%(A)=0 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+644,(ZY-(Y1-TY))*ZK+151),A1%,MATTE,1,1,%15 5510 IF PAT%(A)=1 AND BUGU%(A)=1 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+644,(ZY-(Y1-TY))*ZK+151),A2%,MATTE,1,1,%15 5520 IF Q=3 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+651,(ZY-(Y1-TY))*ZK+151),A3%,MATTE,1,1,%15 5530 IF Q=4 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+651,(ZY-(Y1-TY))*ZK+151),A4%,MATTE,1,1,%15 5540 IF Q=5 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+640+11,(ZY-(Y1-TY))*ZK+140+11),A5%,MATTE,1,1,%15 5550 IF Q=6 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+640+11,(ZY-(Y1-TY))*ZK+140+11),A6%,MATTE,1,1,%15 5560 IF Q=7 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+640+11,(ZY-(Y1-TY))*ZK+140+11),A7%,MATTE,1,1,%15 5570 IF Q=8 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+640+11,(ZY-(Y1-TY))*ZK+140+11),A8%,MATTE,1,1,%15 5580 IF Q=9 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+640+11,(ZY-(Y1-TY))*ZK+140+11),A9%,MATTE,1,1,%15 5590 IF Q=10 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+640+11,(ZY-(Y1-TY))*ZK+140+11),A10%,MATTE,1,1,%15 5600 IF Q=13 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+640+4,(ZY-(Y1-TY))*ZK+140+11),A1%,MATTE,1,1,%15 5610 IF Q=14 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+640+4,(ZY-(Y1-TY))*ZK+140+11),A2%,MATTE,1,1,%15 5620 IF PAT%(A)=20 OR PAT%(A)=21 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+646,(ZY-(Y1-TY))*ZK+153),A15%,MATTE,1,1,%15:GOTO 5640 5630 IF PAT%(A)=22 OR PAT%(A)=23 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+640+6,(ZY-(Y1-TY))*ZK+140+13),A16%,MATTE,1,1,%15:GOTO 5640 5640 ITI%((ZX-X1+TX)*ZK\12,(ZY-Y1+TY)*ZK\12)=A 5650 NEXT 5660 DIM W%(40000):GET@A (640,140)-(640+359,439),W%:PUT@A (0,0)-(359,299),W% 5670 ERASE W% 5680 NEXT HYO 5690 RETURN 5700 *HYOUZI_IDO:L=MOKUTEKI%(A):HYOUZI_IDOA=0 5710 IF L>=1000 THEN GOSUB *HYOUZI_IDOA 5720 IF L=-1 THEN RETURN 5730 KAKUDO_X=X1%(A)-X1%(L):KAKUDO_Y=Y1%(A)-Y1%(L) 5740 KAKUDO_XY=ABS(X1%(A)-X1%(L))-ABS(Y1%(A)-Y1%(L)) 5750 IF KAKUDO_XY>=0 AND KAKUDO_X>2 THEN PAT%(A)=9:X1%(A)=X1%(A)-1:RETURN 5760 IF KAKUDO_XY>=0 AND KAKUDO_X<-2 THEN PAT%(A)=5:X1%(A)=X1%(A)+1:RETURN 5770 IF KAKUDO_XY=<0 AND KAKUDO_Y>2 THEN PAT%(A)=3:Y1%(A)=Y1%(A)-1:RETURN 5780 IF KAKUDO_XY=<0 AND KAKUDO_Y<-2 THEN PAT%(A)=7:Y1%(A)=Y1%(A)+1:RETURN 5790 IF HYOUZI_IDOA=1 THEN *GOURYU 5800 MOKUTEKI%(L)=A 5810 IF PAT%(L)=0 OR PAT%(L)=13 THEN PAT%(L)=22:PAT%(A)=21:RETURN 5820 IF PAT%(L)=1 THEN PAT%(L)=23:PAT%(A)=20:RETURN 5830 IF PAT%(L)=22 THEN PAT%(A)=21:RETURN 5840 IF PAT%(L)>=20 THEN PAT%(A)=20:RETURN 5850 PAT%(L)=20:PAT%(A)=20:RETURN 5860 *HYOUZI_IDOA:HYOUZI_IDOA=1 5870 IF L>=2000 THEN L=L-2000:RETURN ELSE L=L-1000 5880 KAKUDO_X=X1%(A)-TX%(L):KAKUDO_Y=Y1%(A)-TY%(L) 5890 KAKUDO_XY=ABS(X1%(A)-TX%(L))-ABS(Y1%(A)-TY%(L)) 5900 RETURN 5750 5910 *HYOUZI_IDOB:L=MOKUTEKI%(SYUTU)-1000 5920 IF L>=1000 THEN L=L-1000:GOTO *HYOUZI_IDO 5930 IF L=-1 THEN *YASAGSASI 5940 KAKUDO_X=X1%(SYUTU)-TX%(L):KAKUDO_Y=Y1%(SYUTU)-TY%(L) 5950 KAKUDO_XY=ABS(X1%(SYUTU)-TX%(L))-ABS(Y1%(SYUTU)-TY%(L)) 5960 IF KAKUDO_XY<=0 AND KAKUDO_Y<0 THEN PAT%(SYUTU)=7:Y1%(SYUTU)=Y1%(SYUTU)+1 5970 IF KAKUDO_XY>=0 AND KAKUDO_X>0 THEN PAT%(SYUTU)=9:X1%(SYUTU)=X1%(SYUTU)-1 5980 IF KAKUDO_XY>=0 AND KAKUDO_X<0 THEN PAT%(SYUTU)=5:X1%(SYUTU)=X1%(SYUTU)+1 5990 IF KAKUDO_XY<=0 AND KAKUDO_Y>0 THEN PAT%(SYUTU)=3:Y1%(SYUTU)=Y1%(SYUTU)-1 6000 RETURN 6010 *TEKI_TYOUSA 6020 FOR S=1 TO SRS 6030 TEKI%(S)=0 6040 IF A=S OR BUGU%(A)=BUGU%(S) THEN 6060 ELSE KYO=FIX(SQR((X1%(A)-X1%(S))^2+(Y1%(A)-Y1%(S))^2))-HE%(A)\2000:KEIKAI=KYO-BSN%(R)*7\(RD+1):TEKI_A=TEKI_A+1 6050 IF KEIKAI=<0 THEN GOSUB *GUNZISA 6060 NEXT 6070 RETURN 6080 *TEKI_TYOUSAIDO 6090 FOR S=1 TO SRS 6100 IF A=S OR BUGU%(A)=BUGU%(S) THEN 6060 ELSE KYO=FIX(SQR((X1%(A)-X1%(S))^2+(Y1%(A)-Y1%(S))^2))+HE%(A)\4000:KEIKAI=KYO-BSN%(R)*7\(RD+1) 6110 IF KEIKAI=<0 THEN TEKI_A=TEKI_A+1 6120 NEXT 6130 RETURN 6140 *YASAGASI 6150 FOR I=10 TO 63 6160 KYO=FIX(SQR((X1%(A)-X1%(I))^2+(Y1%(A)-Y1%(I))^2)) 6170 IF KYO>22 THEN NEXT I 6180 FOR O=1 TO SRS 6190 IF RT%(O)=I AND BUGU%(O)<>BUGU%(A) THEN NEXT O 6200 MOKUTEKI%(A)=I+1000:RETURN 6210 *MOZI_HYOUZI:CLS 1:WIDTH 80,25:CONSOLE 16,8,0 6220 LOCATE 46,1,0:PRINT HYOUZI$(1) 6230 LOCATE 46,6:PRINT HYOUZI$(12) 6240 LOCATE 55,6:PRINT TOSI$(RT%(PLAYR))+" " 6250 LOCATE 46,5:PRINT HYOUZI$(11):LOCATE 53,5:PRINT NAMAE$(R%(PLAYR)) 6260 FOR P=1 TO 8 6270 LOCATE 46,6+P:PRINT HYOUZI$(P+2) 6280 NEXT 6290 LOCATE 60,7:SUUZI=RK%(PLAYR):GOSUB *KANSUZI:PRINT KANZI$+" " 6300 LOCATE 60,8:SUUZI=RH%(PLAYR):GOSUB *KANSUZI:PRINT KANZI$+" " 6310 BUKA=0:FOR I=0 TO 579 6320 IF SYO%(I)=R%(PLAYR) AND I<>R%(PLAYR) THEN BUKA=BUKA+1 6330 NEXT: LOCATE 60,9:SUUZI=BUKA:GOSUB *KANSUZI:PRINT KANZI$+" " 6340 LOCATE 60,10:SUUZI=HE%(PLAYR):GOSUB *KANSUZI:PRINT KANZI$+" " 6350 LOCATE 60,11:SUUZI=MIN%(PLAYR):GOSUB *KANSUZI:PRINT KANZI$+" " 6360 LOCATE 60,12:SUUZI=KUG%(PLAYR):GOSUB *KANSUZI:PRINT KANZI$+" " 6370 LOCATE 60,13:SUUZI=KOKU%(PLAYR):GOSUB *KANSUZI:PRINT KANZI$+" " 6380 LOCATE 60,14:SUUZI=SK%(PLAYR):GOSUB *KANSUZI:PRINT KANZI$+" " 6390 FOR P=0 TO 6 6400 SYMBOL(MAP(P*80,2),MAP(307,3)),HYOUZI$(P+16),1,1,7,0 6410 NEXT 6420 RETURN 6430 *NANKA 6440 SUUZI=NEN:GOSUB *KANSUZI:NEN$=KANZI$+"年 " 6450 SUUZI=TUKI:GOSUB *KANSUZI:TUKI$=KANZI$+"月 " 6460 IF SYUU=1 THEN SYUU$="第一週 " 6470 IF SYUU=2 THEN SYUU$="第二週 " 6480 IF SYUU=3 THEN SYUU$="第三週 " 6490 IF SYUU=4 THEN SYUU$="第四週 " 6500 RETURN 6510 *USER 6520 BEEP 1:WAIT 100 :BEEP 0:BTN=0:WHILE MOUSE(2,0)=-1:WEND:MEIREISU=0 6530 KOM$=" " 6540 LOCATE 0,17:PRINT KOM$ 6550 LOCATE 0,21:PRINT KOM$ 6560 LOCATE 0,22:PRINT KOM$ 6570 LOCATE 0,18:PRINT KOM$ 6580 LOCATE 0,19:PRINT KOM$ 6590 LOCATE 0,20:PRINT KOM$ 6600 WHILE BTN=0 6610 X2=MOUSE(0):Y2=MOUSE(1) 6620 BTN=MOUSE(2,0) 6630 WEND 6640 IF Y2<=300 AND X2<=360 THEN GOSUB *COM_TYOUSA 6650 IF Y2>=300 AND Y2<=325 THEN GOSUB *MEIREI 6660 IF (X2>=360 AND Y2>=90) AND (X2<=519 AND Y2<=299) THEN GOSUB *USER_A 6670 IF X2>=360 AND Y2<=90 THEN GOSUB *USER_B 6680 IF MEIREISU=1 THEN BEEP 1:WAIT 200:BEEP 0:RETURN ELSE *USER 6690 *COM_TYOUSA 6700 X3=X2\12:Y3=Y2\12 6710 IF ITI%(X3,Y3)=0 THEN RETURN 6720 P=ITI%(X3,Y3):IF P>=1000 THEN LOCATE 49,17:PRINT TOSI$(P-1000) 6730 IF P>=1000 THEN LOCATE 49,18:SUUZI=TS%(P-1000):GOSUB *KANSUZI:PRINT "生産力 "+KANZI$ 6740 IF P>=1000 THEN LOCATE 49,19:SUUZI=TK%(P-1000):GOSUB *KANSUZI:PRINT "経済力 "+KANZI$:BEEP 1:WAIT 20:BEEP 0:RETURN 6750 BEEP 1:WAIT 20:BEEP 0 6760 SUUZI=HE%(P):GOSUB *KANSUZI 6770 LOCATE 49,17:PRINT "総大将 "+NAMAE$(R%(P))+" " 6780 LOCATE 49,18:PRINT KANZI$+"人 " 6790 IF PAT%(P)>=20 THEN JOUK$="合戦中 " 6800 IF PAT%(P)=1 THEN JOUK$="陣にて待機中" 6810 IF PAT%(P)=0 OR PAT%(P)=13 THEN JOUK$="待機中 " 6820 IF PAT%(P)>=3 AND PAT%(P)<=9 THEN JOUK$="移動中 " 6830 LOCATE 49,19:PRINT JOUK$ 6840 IF ZK=2 THEN RETURN 6850 RH!=RH%(P)/HE%(P):RH=FIX(RH!*50) 6860 SUUZI=RH:GOSUB *KANSUZI:RH$=KANZI$ 6870 LOCATE 49,20:PRINT "兵糧約"+RH$+"日分 " 6880 IF ZK=4 THEN RETURN 6890 IF MOKUTEKI%(P)=-1 THEN RETURN 6900 IF MOKUTEKI%(P)>=1 AND MOKUTEKI%(P)<=50 THEN LOCATE 49,21:PRINT NAMAE$(R%(MOKUTEKI%(P)))+"軍へ向かう模様 " 6910 IF MOKUTEKI%(P)>=1000 THEN L=MOKUTEKI%(P)-1000:LOCATE 49,21:PRINT TOSI$(RT%(P))+"へ向かう模様 " 6920 RETURN 6930 *KANSUZI:KANSUZI$=STR$(SUUZI) 6940 MOZISU=LEN(KANSUZI$):KANZI$="" 6950 FOR P1=1 TO MOZISU 6960 L=VAL(MID$(KANSUZI$,P1,1)) 6970 IF L=1 THEN L$="一" 6980 IF L=2 THEN L$="二" 6990 IF L=3 THEN L$="三" 7000 IF L=4 THEN L$="四" 7010 IF L=5 THEN L$="五" 7020 IF L=6 THEN L$="六" 7030 IF L=7 THEN L$="七" 7040 IF L=8 THEN L$="八" 7050 IF L=9 THEN L$="九" 7060 IF L=0 THEN L$="○":IF P1=1 THEN L$="" 7070 KANZI$=KANZI$+L$ 7080 NEXT 7090 RETURN 7100 *MEIREI 7110 KOM$=" " 7120 LOCATE 0,17:PRINT KOM$ 7130 LOCATE 0,22:PRINT KOM$ 7140 LOCATE 0,19:PRINT KOM$ 7150 LOCATE 0,18:PRINT KOM$ 7160 LOCATE 0,21:PRINT KOM$ 7170 LOCATE 0,20:PRINT KOM$ 7180 LOCATE 0,23:PRINT KOM$ 7190 IF Y2>=318 THEN RETURN 7200 IF X2<=80 AND (PAT%(PLAYR)>=3 AND PAT%(PLAYR)<=9) THEN *USER_KOUGUN 7210 IF (X2>80 AND X2<=160) AND PAT%(PLAYR)=1 THEN *USER_ZIN 7220 IF (X2>160 AND X2<=240) AND PAT%(PLAYR)=0 THEN *USER_SIROTOSI 7230 IF (X2>240 AND X2<=320) AND (PAT%(PLAYR)=13 OR PAT%(PLAYR)=1) THEN *USER_GAIKOU 7240 IF (X2>240 AND X2<=320) AND PAT%(PLAYR)=0 THEN *USER_GAIKOU 7250 IF (X2>320 AND X2<=400) AND (PAT%(PLAYR)=13 OR PAT%(PLAYR)=1) THEN *USER_ZINZI 7260 IF (X2>320 AND X2<=400) AND PAT%(PLAYR)=0 THEN *USER_ZINZI 7270 IF (X2>400 AND X2<=480) AND PAT%(PLAYR)=13 THEN *USER_TERA 7280 IF X2>480 AND X2<=560 THEN *USER_KIROKU 7290 RETURN 7300 *USER_KOUGUN:BTN=0:WHILE MOUSE(2,0)=-1:WEND 7310 FOR L=0 TO 2 7320 LOCATE 10*L,17:PRINT HYOUZI$(L+23) 7330 NEXT 7340 LOCATE 30,17:PRINT "何もせず " 7350 WHILE BTN=0 7360 X4=MOUSE(0):Y4=MOUSE(1) 7370 BTN=MOUSE(2,0) 7380 WEND 7390 IF Y4>=300 AND Y4<=325 THEN *MEIREI 7400 IF X4<=80 THEN *USER_MOKUTEKITI 7410 IF X4>80 AND X4<=160 THEN *MONOMI 7420 IF X4>160 AND X4<=240 THEN *ZINHARI 7430 IF X4>240 AND X4<=320 THEN MEIREISU=1 7440 RETURN 7450 *USER_ZIN:WHILE MOUSE(2,0)=-1:WEND 7460 FOR L=0 TO 4:LOCATE 10*L,17:PRINT HYOUZI$(L+26):NEXT 7470 WHILE MOUSE(2,0)=0:WEND 7480 X4=MOUSE(0):Y4=MOUSE(1) 7490 IF Y4>=300 AND Y4<=325 THEN *MEIREI 7500 IF X4<=80 THEN *USER_MOKUTEKITI 7510 IF X4>80 AND X4<=160 THEN *USER_SYUEN 7520 IF X4>160 AND X4<=240 THEN *USER_KYUSOKU 7530 IF X4>240 AND X4<=320 THEN *USER_RYAKUDATU 7540 IF X4>320 AND X4<=400 THEN *USER_TYOUTATU 7550 RH%(PLAYR)=RH%(PLAYR)-HE%(PLAYR)\60 7560 RETURN 7570 *USER_SIROTOSI:BTN=0:WHILE MOUSE(2,0)=-1:WEND 7580 FOR L=0 TO 4:LOCATE 10*L,17:PRINT HYOUZI$(L+31):NEXT 7590 WHILE BTN=0 7600 X4=MOUSE(0):Y4=MOUSE(1) 7610 BTN=MOUSE(2,0) 7620 WEND 7630 IF Y4>=300 AND Y4<=325 THEN *MEIREI 7640 IF X4<=80 THEN *USER_MOKUTEKITI 7650 IF X4>80 AND X4<=160 THEN *USER_KUNREN 7660 IF X4>160 AND X4<=240 THEN *USER_TYOUHEI 7670 IF X4>240 AND X4<=320 THEN *USER_HUKKOU 7680 IF X4>320 AND X4<=400 THEN *USER_KOUKAN 7690 RETURN 7700 *USER_GAIKOU:WHILE MOUSE(2,0)=-1:WEND 7710 LOCATE 0,17:PRINT HYOUZI$(36) 7720 FOR L=1 TO 3:LOCATE 10*L,17:PRINT HYOUZI$(L+37):NEXT 7730 WHILE MOUSE(2,0)=0:WEND 7740 X4=MOUSE(0):Y4=MOUSE(1) 7750 IF Y4>=300 AND Y4<=325 THEN *MEIREI 7760 IF X4<=80 THEN *USER_KIJUN 7770 IF X4>160 AND X4<=240 THEN *USER_KAIDAN 7780 IF X4>80 AND X4<=160 THEN *USER_KOUHUKUKANKOKU 7790 IF X4>240 AND X4<=320 THEN *USER_MOTENASI 7800 RETURN 7810 *USER_ZINZI:WHILE MOUSE(2,0)=-1:WEND 7820 LOCATE 0,17:PRINT HYOUZI$(41) 7830 LOCATE 10,17:PRINT HYOUZI$(42) 7840 LOCATE 20,17:PRINT HYOUZI$(44) 7850 LOCATE 30,17:PRINT HYOUZI$(45) 7860 WHILE MOUSE(2,0)=0:WEND 7870 X4=MOUSE(0):Y4=MOUSE(1) 7880 IF Y4>=300 AND Y4<=325 THEN *MEIREI 7890 IF X4<=80 THEN *USER_HORYO 7900 IF X4>80 AND X4<=160 THEN *USER_ENKAI 7910 IF X4>160 AND X4<=240 THEN *USER_ZINZAIYOUSEI 7920 IF X4>240 AND X4<=320 THEN *USER_ZINZAIHAKEN 7930 RETURN 7940 *USER_TERA:WHILE MOUSE(2,0)=-1:WEND 7950 FOR L=0 TO 5:LOCATE 10*L,17:PRINT HYOUZI$(L+46):NEXT 7960 WHILE MOUSE(2,0)=0:WEND 7970 X4=MOUSE(0):Y4=MOUSE(1) 7980 IF Y4>=300 AND Y4<=325 THEN *MEIREI 7990 IF X4<=80 THEN *USER_HUKKOU 8000 IF X4>80 AND X4<=160 THEN *USER_KUNREN 8010 IF X4>160 AND X4<=240 THEN *USER_TYOUHEI 8020 IF X4>240 AND X4<=320 THEN *USER_TYOUTATU 8030 IF X4>320 AND X4<=400 THEN *USER_KIGAN 8040 IF X4>400 AND X4<=480 THEN *USER_MOKUTEKITI 8050 RETURN 8060 *USER_MOKUTEKITI:WHILE MOUSE(2,0)=-1:WEND 8070 LOCATE 0,18:PRINT "目的地を決めてください " 8080 WHILE MOUSE(2,0)=0:WEND 8090 X2=MOUSE(0):Y2=MOUSE(1):P=0 8100 IF X2>=360 AND Y2<=90 THEN GOSUB *USER_B 8110 IF Y2<=299 AND X2<=359 THEN GOSUB *COM_TYOUSA 8120 IF P=0 THEN 8080 8130 IF P>1000 THEN LOCATE 0,18:PRINT TOSI$(P-1000)+"へ向かいますか " 8140 GOSUB *ZEHI:IF ZEHI=0 THEN RETURN ELSE MEIREISU=1:GOTO 8190 8150 IF BUGU%(P)=BUGU%(PLAYR) THEN LOCATE 0,18:PRINT NAMAE$(R%(P))+"軍と合流するのですか " 8160 GOSUB *ZEHI:IF ZEHI=0 THEN RETURN ELSE MEIREISU=1:P=P+2000 8170 IF P<1001 THEN LOCATE 0,18:PRINT NAMAE$(R%(P))+"軍でよろしいですか " 8180 GOSUB *ZEHI:IF ZEHI=0 THEN RETURN ELSE MEIREISU=1 8190 LOCATE 0,19:PRINT "それでは出陣します " 8200 SYUTU=PLAYR:MOKUTEKI%(PLAYR)=P:GOSUB *SYUTU_B 8210 RETURN 8220 *MONOMI:WHILE MOUSE(2,0)=-1:WEND 8230 WHILE MOUSE(2,0)=0:WEND:X2=MOUSE(0):Y2=MOUSE(1) 8240 GOSUB *COM_TYOUSA:RETURN 8250 *ZINHARI:WHILE MOUSE(2,0)=-1:WEND 8260 LOCATE 0,18:PRINT "陣を張ります･よろしいですか " 8270 GOSUB *ZEHI:IF ZEHI=0 THEN RETURN 8280 PAT%(PLAYR)=1:MEIREISU=1:GOSUB *HYOUZI_MAP 8290 RETURN 8300 *USER_SYUEN:WHILE MOUSE(2,0)=-1:WEND 8310 IF RH%(PLAYR)<=0 THEN LOCATE 0,18:PRINT "兵糧がありません " 8320 LOCATE 0,18:PRINT "どのくらいの量を兵に振舞いますか " 8330 WHILE MOUSE(2,0)=0 8340 RH=MOUSE(0)*20 8350 IF RH>RH%(PLAYR) THEN RH=RH%(PLAYR) 8360 LOCATE 34,18:PRINT USING "#####";RH 8370 WEND 8380 GOSUB *ZEHI:IF ZEHI=0 THEN RETURN 8390 MEIREISU=1:RH%(PLAYR)=RH%(PLAYR)-RH 8400 SK%(PLAYR)=SK%(PLAYR)+(30-HE%(PLAYR)\RH+BT%(R%(PLAYR))-RD-1) 8410 IF SK%(PLAYR)>100 THEN SK%(PLAYR)=100 8420 LOCATE 60,8:SUUZI=RH%(PLAYR):GOSUB *KANSUZI:PRINT KANZI$+" " 8430 LOCATE 60,14:SUUZI=SK%(PLAYR):GOSUB *KANSUZI:PRINT KANZI$+" " 8440 RETURN 8450 *USER_KYUSOKU:WHILE MOUSE(2,0)=-1:WEND 8460 LOCATE 0,18:PRINT "兵を休ませます " 8470 GOSUB *ZEHI:IF ZEHI=0 THEN RETURN 8480 MEIREISU=1:SK%(PLAYR)=SK%(PLAYR)+2 8490 IF SK%(PLAYR)>100 THEN SK%(PLAYR)=100 8500 LOCATE 60,14:SUUZI=SK%(PLAYR):GOSUB *KANSUZI:PRINT KANZI$+" ":RETURN 8510 *USER_RYAKUDATU:WHILE MOUSE(2,0)=-1:WEND 8520 LOCATE 0,18:PRINT "周辺の民家から食糧を略奪します " 8530 GOSUB *ZEHI:IF ZEHI=0 THEN RETURN 8540 MEIREISU=1:RH%(PLAYR)=RH%(PLAYR)+BB%(A)*(RD\4+1)*50 8550 MIN%(A)=MIN%(A)-(10-BZ%(A))*2 8560 IF RH%(PLAYR)>30000 THEN RH%(PLAYR)=30000 8570 LOCATE 60,8:SUUZI=RH%(PLAYR):GOSUB *KANSUZI:PRINT KANZI$+" ":RETURN 8580 *USER_TYOUTATU:WHILE MOUSE(2,0)=-1:WEND 8590 LOCATE 0,18:PRINT "食糧を調達します " 8600 GOSUB *ZEHI:IF ZEHI=0 THEN RETURN 8610 MEIREISU=1 8620 RH%(PLAYR)=RH%(PLAYR)+(BSZ%(R%(PLAYR))+BZ%(R%(PLAYR)))*10*(RD\3+1) 8630 MIN%(A)=MIN%(A)-6+BZ%(R%(PLAYR)) 8640 IF RH%(PLAYR)>30000 THEN RH%(PLAYR)=30000 8650 LOCATE 60,8:SUUZI=RH%(PLAYR):GOSUB *KANSUZI:PRINT KANZI$+" ":RETURN 8660 *USER_KUNREN:WHILE MOUSE(2,0)=-1:WEND 8670 LOCATE 0,18:PRINT "兵を鍛えます " 8680 GOSUB *ZEHI:IF ZEHI=0 THEN RETURN 8690 MEIREISU=1 8700 SK_A=30-HE%(A)\1000+BT%(R%(PLAYR))+RD:SK_B=SK%(PLAYR)+SK_A 8710 IF SK_B>100 THEN SK_B=100 8720 SK%(PLAYR)=SK_B 8730 LOCATE 60,14:SUUZI=SK_B:GOSUB *KANSUZI:PRINT KANZI$+" " 8740 RETURN 8750 *USER_TYOUHEI:WHILE MOUSE(2,0)=-1:WEND 8760 TYOUHEISUU!=((TK%(RT%(PLAYR))+1)*50)/640 8770 LOCATE 0,18:PRINT "兵を何人徴兵しまか " 8780 WHILE MOUSE(2,0)=0 8790 TYOUHEISU=MOUSE(0)*TYOUHEISUU! 8800 LOCATE 20,18:PRINT USING "#####";TYOUHEISU 8810 WEND::WHILE MOUSE(2,0)=-1:WEND 8820 GOSUB *ZEHI:IF ZEHI=0 THEN RETURN ELSE MEIREISU=1 8830 SK%(PLAYR)=SK%(PLAYR)-(HE%(PLAYR)+TYOHEISU)\HE%(PLAYR) 8840 HE%(PLAYR)=HE%(PLAYR)+TYOUHEISU 8850 IF HE%(PLAYR)>30000 THEN HE%(PLAYR)=30000 8860 IF SK%(PLAYR)<0 THEN SK%(PLAYR)=0 8870 MIN%(PLAYR)=MIN%(PLAYR)-TYOHEISU\100+BZ%(R%(PLAYR))-6 8880 IF MIN%(PLAYR)<0 THEN MIN%(PLAYR)=0 8890 LOCATE 60,14:SUUZI=SK%(PLAYR):GOSUB *KANSUZI:PRINT KANZI$+" " 8900 LOCATE 60,10:SUUZI=HE%(PLAYR):GOSUB *KANSUZI:PRINT KANZI$+" " 8910 LOCATE 60,11:SUUZI=MIN%(PLAYR):GOSUB *KANSUZI:PRINT KANZI$+" ":RETURN 8920 *USER_HUKKOU:WHILE MOUSE(2,0)=-1:WEND 8930 LOCATE 0,18:PRINT "町の復興費 " 8940 WHILE MOUSE(2,0)=0 8950 RK=MOUSE(0)*20:IF RK>RK%(PLAYR) THEN RK=RK%(PLAYR) 8960 LOCATE 12,18:PRINT USING "#####";RK 8970 WEND:WHILE MOUSE(2,0)=-1:WEND 8980 GOSUB *ZEHI:IF ZEHI=0 THEN RETURN ELSE MEIREISU=1 8990 RK%(PLAYR)=RK%(PLAYR)-RK:MIN%(A)=MIN%(A)+RK\BZ%(R%(PLAYR))\100 9000 IF MIN%(PLAYR)>100 THEN MIN%(PLAYR)=100 9010 LOCATE 60,7:SUUZI=RK%(PLAYR):GOSUB *KANSUZI:PRINT KANZI$+" " 9020 LOCATE 60,11:SUUZI=MIN%(PLAYR):GOSUB *KANSUZI:PRINT KANZI$+" ":RETURN 9030 *USER_KOUKAN:WHILE MOUSE(2,0)=-1:WEND 9040 RH=RH%(PLAYR)/640 9050 LOCATE 0,18:PRINT "どのくらい売りますか(米１:金０.５) " 9060 WHILE MOUSE(2,0)=0 9070 RHH=MOUSE(0)*RH 9080 LOCATE 36,18:PRINT USING "#####";RHH 9090 WEND:WHILE MOUSE(2,0)=-1:WEND 9100 GOSUB *ZEHI:IF ZEHI=0 THEN RETURN 9110 MEIREISU=1:RH%(PLAYR)=RH%(PLAYR)-RHH 9120 RK%(PLAYR)=RK%(PLAYR)+RHH\2 9130 IF RK%(PLAYR)>30000 THEN R%(PLAYR)=30000 9140 LOCATE 60,7:SUUZI=RK%(PLAYR):GOSUB *KANSUZI:PRINT KANZI$+" " 9150 LOCATE 60,8:SUUZI=RH%(PLAYR):GOSUB *KANSUZI:PRINT KANZI$+" ":RETURN 9160 *USER_KIJUN:WHILE MOUSE(2,0)=-1:WEND 9170 LOCATE 0,18:PRINT "敵対勢力に帰順します " 9180 GOSUB *ZEHI:IF ZEHI=0 THEN RETURN ELSE MEIREISU=1 9190 MIN%(PLAYR)=MIN%(PLAYR)\2:KOKU%(PLAYR)=KOKU%(PLAYR)\2 9200 LOCATE 60,11:SUUZI=MIN%(PLAYR):GOSUB *KANSUZI:PRINT KANZI$+" " 9210 LOCATE 60,13:SUUZI=KOKU%(PLAYR):GOSUB *KANSUZI:PRINT KANZI$+" " 9220 IF BUGU%(PLAYR)=0 THEN BUGU%(PLAYR)=1:GOTO 9240 9230 IF BUGU%(PLAYR)=1 THEN BUGU%(PLAYR)=0 9240 IF RT%(PLAYR)=-1 THEN RETURN 9250 IF SS%(RT%(PLAYR))=1 THEN SS%(RT%(PLAYR))=2:RETURN 9260 IF SS%(RT%(PLAYR))=2 THEN SS%(RT%(PLAYR))=1:RETURN 9270 *USER_KOUHUKUKANKOKU:WHILE MOUSE(2,0)=-1:WEND 9280 LOCATE 0,18:PRINT "どの軍に勧告しますか " 9290 WHILE MOUSE(2,0)=0:WEND 9300 X2=MOUSE(0):Y2=MOUSE(1) 9310 IF X2>=360 AND Y2<=90 THEN GOSUB *USER_B 9320 IF Y2<=299 AND X2<=359 THEN GOSUB *COM_TYOUSA ELSE 9290 9330 IF BUGU%(P)=BUGU%(PLAYR) THEN 9290 9340 WHILE MOUSE(2,0)=-1:WEND 9350 LOCATE 0,18:PRINT NAMAE$(R%(P))+"軍でよろしいですか " 9360 GOSUB *ZEHI:IF ZEHI=0 THEN RETURN ELSE MEIREISU=1 9370 HEA=HE%(PLAYR):SKA=SK%(PLAYR):HEP=HE%(P):SKP=SK%(P) 9380 L!=(HEP*SKA*BC%(R%(P))*5+1+RD\2)-HEA*SKA 9390 IF BC%(R%(P))=0 OR BC%(R%(P))=>4 THEN L!=100 9400 IF L!>=0 AND BB%(R%(P))=5 THEN KOM$="そのような戯れ言をよく思いつかれるものだ･貴殿は頭がおかしいのでは " 9410 IF L!>=0 AND BB%(R%(P))=4 THEN KOM$="笑止千万！帰れ！　 " 9420 IF L!>=0 AND BB%(R%(P))=3 THEN KOM$="何をおたわむれ申さるる " 9430 IF L!>=0 AND BB%(R%(P))<=2 THEN KOM$="お断り申す " 9440 IF L!<0 AND BB%(R%(P))=5 THEN KOM$="心外なれどこれも致し方なし････ " 9450 IF L!<0 AND BB%(R%(P))=4 THEN KOM$="これも天命なのだろうか " 9460 IF L!<0 AND BB%(R%(P))=3 THEN KOM$="ここは勧告を受け入れるのが賢明だろう " 9470 IF L!<0 AND BB%(R%(P))<=2 THEN KOM$="承知致す " 9480 LOCATE 0,18:PRINT KOM$ 9490 IF L!>=0 THEN LOCATE 0,19:PRINT "断られました ":RETURN 9500 IF L!<0 THEN LOCATE 0,19:PRINT "降伏しました " 9510 BUGU%(P)=BUGU%(PLAYR):KOKU%(P)=KOKU%(P)\3*2 9520 IF PAT%(P)<>0 AND PAT%(P)<>13 THEN MOKUTEKI%(P)=RT%(P)+1000 9530 IF RT%(P)=-1 THEN RETURN 9540 IF SS%(RT%(P))=2 THEN SS%(RT%(P))=1:RETURN 9550 IF SS%(RT%(P))=1 THEN SS%(RT%(P))=2:RETURN 9560 *USER_KAIDAN:WHILE MOUSE(2,0)=-1:WEND 9570 LOCATE 0,18:PRINT "どの軍に援軍求めますか " 9580 WHILE MOUSE(2,0)=0:WEND 9590 X2=MOUSE(0):Y2=MOUSE(1):P=0 9600 IF X2>=360 AND Y2<=90 THEN GOSUB *USER_B 9610 IF Y2<=299 AND X2<=359 THEN GOSUB *COM_TYOUSA 9620 IF P=0 THEN 9580 9630 IF BUGU%(P)<>BUGU%(PLAYR) THEN 9580 9640 WHILE MOUSE(2,0)=-1:WEND 9650 LOCATE 0,18:PRINT NAMAE$(R%(P))+"軍でよろしいですか " 9660 GOSUB *ZEHI:IF ZEHI=0 THEN RETURN ELSE MEIREISU=1 9670 WHILE MOUSE(2,0)=-1:WEND:ENGUN=P 9680 LOCATE 0,18:PRINT "攻撃する敵を決めてください " 9690 WHILE MOUSE(2,0)=0:WEND 9700 X2=MOUSE(0):Y2=MOUSE(1):P=0 9710 IF X2>=360 AND Y2<=90 THEN GOSUB *USER_B 9720 IF Y2<=299 AND X2<=359 THEN GOSUB *COM_TYOUSA 9730 IF P=0 THEN 9690 9740 IF BUGU%(P)=BUGU%(PLAYR) THEN 9690 9750 WHILE MOUSE(2,0)=-1:WEND 9760 LOCATE 0,18:PRINT NAMAE$(R%(P))+"ですか " 9770 GOSUB *ZEHI:IF ZEHI=0 THEN 9690 ELSE MEIREISU=1 9780 RH!=RH%(P)/HE%(P):RH=FIX(RH!*50) 9790 KYO=FIX(SQR((X1%(P)-X1%(ENGUN))^2+(Y1%(P)-Y1%(ENGUN))^2)) 9800 KYO=KYO*2-RH-BZ%(R%(PLAYR)) 9810 IF KYO>=-3 THEN KOM$="承知しかねる" ELSE KOM$="承知致した" 9820 LOCATE 0,18:PRINT KOM$+" ":WAIT 100 9830 IF KYO>=-3 THEN LOCATE 0,19:PRINT "援軍は断られました":RETURN 9840 LOCATE 0,19:PRINT "要請に応じてくれました･出陣します " 9850 MOKUTEKI%(PLAYR)=P:SYUTU=PLAYR:GOSUB *SYUTU_B 9860 MOKUTEKI%(ENGUN)=P:SYUTU=ENGUN:GOSUB *SYUTU_B 9870 RETURN 9880 *USER_MOTENASI:WHILE MOUSE(2,0)=-1:WEND 9890 LOCATE 0,18:PRINT "この地の国人に金を振舞います " 9900 WHILE MOUSE(2,0)=0 9910 RK=MOUSE(0)*(10000/639):IF RK>RK%(PLAYR) THEN RK=RK%(PLAYR) 9920 LOCATE 30,18:PRINT USING "#####";RK 9930 WEND:WHILE MOUSE(2,0)=-1:WEND 9940 GOSUB *ZEHI:IF ZEHI=0 THEN RETURN ELSE MEIREISU=1 9950 KOKU%(PLAYR)=KOKU%(PLAYR)+RK\20\KOKU%(PLAYR)+1 9960 RK%(PLAYR)=RK%(PLAYR)-RK 9970 IF KOKU%(PLAUR)>=100 THEN KOKU%(PLAYR)=100 9980 SIZI=KOKU%(PLAUR)+KUG%(PLAYR) 9990 IF SIZI>150 THEN KUG%(PLAYR)=KUG%(PLAYR)-1:GOTO 9980 10000 LOCATE 60,12:SUUZI=KUG%(PLAYR):GOSUB *KANSUZI:PRINT KANZI$+" " 10010 LOCATE 60,13:SUUZI=KOKU%(PLAYR):GOSUB *KANSUZI:PRINT KANZI$+" " 10020 LOCATE 60,7:SUUZI=RK%(PLAYR):GOSUB *KANSUZI:PRINT KANZI$+" " 10030 RETURN 10040 *USER_HORYO:WHILE MOUSE(2,0)=-1:WEND 10050 FOR L=0 TO 579 10060 HRYO=SYO%(L)-3000:IF HRYO=R%(PLAYR) THEN GOSUB *USER_SYOBUN 10070 NEXT:RETURN 10080 *USER_SYOBUN 10090 LOCATE 0,17:PRINT NAMAE$(L)+"にどのような処分を " 10100 FOR I=0 TO 2:LOCATE 10*I,18:PRINT HYOUZI$(52+I):NEXT 10110 WHILE MOUSE(2,0)=0:WEND 10120 X5=MOUSE(0):Y5=MOUSE(1) 10130 IF Y5<344 OR Y5<354 THEN 10110 10140 IF X5<=80 THEN SYOBUN=0:KOM$=HYOUZI$(52) 10150 IF X5>80 AND X5<=160 THEN SYOBUN=4000+RT%(PLAYR):KOM$=HYOUZI$(53) 10160 IF X5>160 AND X5<=240 THEN SYOBUN=R%(PLAYR):KOM$=HYOUZI$(54) 10170 LOCATE 0,17:PRINT NAMAE$(L)+"を"+KOM$+"します " 10180 WHILE MOUSE(2,0)=-1:WEND 10190 LOCATE 0,18:PRINT " 是非 " 10200 WHILE MOUSE(2,0)=0:WEND:ZEHI=0 10210 X5=MOUSE(0):Y5=MOUSE(1) 10220 IF Y5>354 OR Y5<344 THEN 10200 10230 IF X5>=41 AND X5<=80 THEN ZEHI=0 10240 IF X5>=0 AND X5<=40 THEN ZEHI=1 10250 IF ZEHI=0 THEN RETURN ELSE MEIREISU=1 10260 SYO%(L)=SYOBUN:RETURN 10270 *USER_ENKAI:WHILE MOUSE(2,0)=-1:WEND:KUGSU=0 10280 FOR I=0 TO 579 10290 KUGE=SYO%(I)-2000:IF KUGE=RT%(PLAYR) THEN KUGSU=KUGSU+1 10300 NEXT 10310 IF KUGSU=0 THEN LOCATE 0,18:PRINT "公家がいません ":RETURN 10320 SUUZI=KUGSU*300:GOSUB *KANSUZI+" " 10330 LOCATE 0,18:PRINT "この地の公家を宴会に招きます･金"+KANZI$+"を要します " 10340 GOSUB *ZEHI:IF ZEHI=0 THEN RETURN ELSE MEIREISU=1 10350 RK%(PLAYR)=RK%(PLAYR)-RK 10360 IF RK%(PLAYR)<0 THEN LOCATE 0,18:PRINT "費用不足のために十分なもてなしができませんでした ":RK%(PLAYR)=0:GOTO 10430 10370 KUG%(PLAYR)=KUG%(PLAYR)+BZ%(R%(PLAYR)) 10380 IF KUG%(PLAYR)>100 THEN KUG%(PLAYR)=100 10390 SIZI=KUG%(PLAYR)+KOKU%(PLAYR) 10400 IF SIZI>150 THEN KUG%(PLAYR)=KUG%(PLAYR)-1:GOTO 10390 10410 LOCATE 60,12:SUUZI=KUG%(PLAYR):GOSUB *KANSUZI:PRINT KANZI$+" " 10420 LOCATE 60,13:SUUZI=KOKU%(PLAYR):GOSUB *KANSUZI:PRINT KANZI$+" " 10430 LOCATE 60,7:SUUZI=RK%(PLAYR):GOSUB *KANSUZI:PRINT KANZI$+" " 10440 RETURN 10450 *USER_ZINZAIHAKEN 10460 LOCATE 0,18:PRINT "何処に派遣しますか " 10470 WHILE MOUSE(2,0)=0:WEND 10480 X2=MOUSE(0):Y2=MOUSE(1):P=0 10490 IF X2>=360 AND Y2<=90 THEN GOSUB *USER_B 10500 IF Y2<=299 AND X2<=359 THEN GOSUB *COM_TYOUSA 10510 IF P=0 THEN 10480 10520 IF NOT (BUGU%(P)=BUGU%(PLAYR)) THEN 10480 10530 WHILE MOUSE(2,0)=-1:WEND 10540 LOCATE 0,18:PRINT NAMAE$(R%(P))+"でよろしいですか " 10550 GOSUB *ZEHI:IF ZEHI=0 THEN RETURN 10560 KYO=FIX(SQR((X1%(P)-X1%(PLAYR))^2+(Y1%(P)-Y1%(PLAYR))^2)) 10570 IF KYO>=45 THEN LOCATE 0,18:PRINT "遠すぎます･出来ません ":RETURN ELSE ENGUN=P 10580 LOCATE 0,17:PRINT "誰を派遣しますか " 10590 BUKA=PLAYR:GOSUB *SEIRETU:WHILE MOUSE(2,0)=-1:WEND 10600 LOCATE 0,17:PRINT NAMAE$(P)+"でよろしいですか " 10610 LOCATE 0,18:PRINT " 是非 " 10620 WHILE MOUSE(2,0)=0:WEND:ZEHI=0 10630 X5=MOUSE(0):Y5=MOUSE(1) 10640 IF Y5>354 OR Y5<344 THEN 10620 10650 IF X5>=41 AND X5<=80 THEN ZEHI=0 10660 IF X5>=0 AND X5<=40 THEN ZEHI=1:MEIREISU=1 10670 IF ZEHI=0 THEN RETURN 10680 WHILE MOUSE(2,0)=-1:WEND 10690 LOCATE 0,19:PRINT "兵もあたえますか " 10700 LOCATE 0,20:PRINT " 是非 " 10710 WHILE MOUSE(2,0)=0:WEND:ZEHI=0 10720 X5=MOUSE(0):Y5=MOUSE(1) 10730 IF Y5>393 OR Y5<374 THEN 10710 10740 IF X5>=41 AND X5<=80 THEN HE=0:GOTO *HAKEN 10750 IF X5>=0 AND X5<=40 THEN ZEHI=1 ELSE 10710 10760 WHILE MOUSE(2,0)=-1:WEND 10770 IF ZEHI=1 THEN LOCATE 0,18:PRINT "いくら与えますか " 10780 WHILE MOUSE(2,0)=0 10790 HE=MOUSE(0)*(1000/639):IF HE>HE%(PLAYR) THEN HE=HE%(PLAYR) 10800 LOCATE 18,18:PRINT USING "####";HE 10810 WEND 10820 GOSUB *ZEHI:IF ZEHI=0 THEN 10680 10830 *HAKEN 10840 SYO%(P)=R%(ENGUN):HE%(ENGUN)=HE%(ENGUN)+HE 10850 SUUZI=HE%(PLAYR):GOSUB *KANSUZI:LOCATE 60,10:PRINT KANZI$+" " 10860 BUKA=0:FOR I=0 TO 579 10870 IF SYO%(I)=R%(PLAYR) AND I<>R%(PLAYR) THEN BUKA=BUKA+1 10880 NEXT: LOCATE 60,9:SUUZI=BUKA:GOSUB *KANSUZI:PRINT KANZI$+" " 10890 LOCATE 0,18:PRINT "派遣します " 10900 RETURN 10910 *USER_ZINZAIYOUSEI 10920 LOCATE 0,18:PRINT "誰に要請しますか " 10930 WHILE MOUSE(2,0)=0:WEND 10940 X2=MOUSE(0):Y2=MOUSE(1):P=0 10950 IF X2>=360 AND Y2<=90 THEN GOSUB *USER_B 10960 IF Y2<=299 AND X2<=359 THEN GOSUB *COM_TYOUSA 10970 IF P=0 THEN 10930 10980 IF NOT (BUGU%(P)=BUGU%(PLAYR)) THEN 10930 10990 WHILE MOUSE(2,0)=-1:WEND 11000 LOCATE 0,18:PRINT NAMAE$(R%(P))+"でよろしいですか " 11010 GOSUB *ZEHI:IF ZEHI=0 THEN RETURN 11020 KYO=FIX(SQR((X1%(P)-X1%(PLAYR))^2+(Y1%(P)-Y1%(PLAYR))^2)) 11030 IF KYO>=45 THEN LOCATE 0,18:PRINT "遠すぎます･無理です ":RETURN ELSE ENGUN=P:DIM BUKA%(50):B=0:MEIREISU=1 11040 FOR I=0 TO 579 11050 IF SYO%(I)=R%(ENGUN) THEN B=B+1:IF B>0 THEN BUKA%(B)=I 11060 IF SYO%(I)=R%(PLAYR) THEN B=B-1 11070 NEXT 11080 IF B<=6 THEN LOCATE 0,18:PRINT "残念ながらできませぬ ":LOCATE 0,19:PRINT "断られました ":RETURN 11090 LOCATE 0,18:PRINT "分かり申した "+NAMAE$(BUKA%(RD\2+1))+"を派遣しよう " 11100 SYO%(BUKA%(RD\2+1))=R%(PLAYR) 11110 BUKA=0:FOR I=0 TO 579 11120 IF SYO%(I)=R%(PLAYR) AND I<>R%(PLAYR) THEN BUKA=BUKA+1 11130 NEXT: LOCATE 60,9:SUUZI=BUKA:GOSUB *KANSUZI:PRINT KANZI$+" " 11140 LOCATE 0,19:PRINT NAMAE$(BUKA%(RD\2+1))+"と申します･お見知り置きを ":RETURN 11150 *USER_KIGAN 11160 LOCATE 0,18:PRINT TOSI$(RT%(PLAYR))+"に祈願します " 11170 GOSUB *ZEHI:IF ZEHI=0 THEN RETURN ELSE MEIREISU=1 11180 LOCATE 0,18:PRINT "兵の士気があがりました ":SK%(PLAYR)=SK%(PLAYR)+1:IF SK%(PLAYR)<100 THEN SK%(PLAYR)=100 11190 SUUZI=SK%(PLAYR):GOSUB *KANSUZI:LOCATE 60,14:PRINT KANZI$+" " 11200 RETURN 11210 *COM_ZINZAIYOUKYU:FOR I=1 TO 10:BEEP 1:WAIT 30:BEEP 0:WAIT 30: NEXT 11220 LOCATE 0,17:PRINT NAMAE$(R%(COM))+"が人材の派遣を要請しております･いかがいたしますか " 11230 LOCATE 0,18:PRINT "話を聞く断る要請を聞き入れる " 11240 WHILE MOUSE(2,0)=0:WEND 11250 X5=MOUSE(0):Y5=MOUSE(1) 11260 IF Y5>354 OR Y5<344 THEN 11240 11270 IF X5<=72 THEN *COM_ZINZAIHANASI 11280 IF X5>72 AND X5<=120 THEN *COM_ZINZAIDAME 11290 IF X5>120 AND X5<=264 THEN *COM_ZINZAIOK ELSE 11240 11300 *COM_ZINZAIHANASI:WHILE MOUSE(2,0)=-1:WEND 11310 LOCATE 0,19:PRINT "我が軍には優秀な人材が一人もおりませぬ･これでは領国の経営もままなりませぬゆえ何とぞお願い申し上げる " 11320 LOCATE 0,18:PRINT "派遣する断る " 11330 WHILE MOUSE(2,0)=0:WEND:ZEHI=0 11340 X5=MOUSE(0):Y5=MOUSE(1) 11350 IF Y5>354 OR Y5<344 THEN 11330 11360 IF X5<=72 THEN ZEHI=1 11370 IF X5>72 AND X5<=120 THEN ZEHI=0 11380 *COM_ZINZAIDAME 11390 IF ZEHI=0 THEN LOCATE 0,19:PRINT "･･･さようでござるか ":RETURN 11400 *COM_ZINZAIOK 11410 IF ZEHI=1 THEN LOCATE 0,17:PRINT "誰を派遣しますか " 11420 BUKA=PLAYR:GOSUB *SEIRETU:WHILR MOUSE(2,0)=-1:WEND 11430 LOCATE 0,17:PRINT NAMAE$(P)+"でよろしいですか " 11440 LOCATE 0,18:PRINT " 是非 " 11450 WHILE MOUSE(2,0)=0:WEND:ZEHI=0 11460 X5=MOUSE(0):Y5=MOUSE(1) 11470 IF Y5>354 OR Y5<344 THEN 10620 11480 IF X5>=41 AND X5<=80 THEN ZEHI=0 11490 IF X5>=0 AND X5<=40 THEN ZEHI=1 11500 IF ZEHI=0 THEN LOCATE 0,18:PRINT "派遣をとりやめますか ":GOSUB *ZEHI:WHILE MOUSE(2,0)=-1:WEND:IF ZEHI=0 THEN 11410 ELSE 11390 11510 LOCATE 0,17:PRINT NAMAE$(P)+"を"+NAMAE$(R%(COM))+"の下へ派遣します ":SYO%(P)=R%(COM) 11520 LOCATE 0,18:PRINT "かたじけのうござる　　　　　　 " 11530 BUKA=0:FOR I=0 TO 579 11540 IF SYO%(I)=R%(PLAYR) AND I<>R%(PLAYR) THEN BUKA=BUKA+1 11550 NEXT: LOCATE 60,9:SUUZI=BUKA:GOSUB *KANSUZI:PRINT KANZI$+" " 11560 RETURN 11570 *COM_KANKOKU 11580 LOCATE 0,17:PRINT NAMAE$(R%(COM))+"が降伏勧告をしています･いかがいたしますか　 " 11590 LOCATE 0,18:PRINT "降伏する無視する " 11600 WHILE MOUSE(2,0)=0:WEND 11610 X5=MOUSE(0):Y5=MOUSE(1) 11620 IF Y5<344 OR Y5>354 THEN 11600 11630 IF X5<=72 THEN GOSUB *ZEHI 11640 IF X5>72 AND X5<=144 THEN ZEHI=0 11650 IF ZEHI=0 THEN LOCATE 0,18:PRINT "愚かな・・・ ":MOUTEKI%(COM)=PLAYR:SYUTU=COM:GOSUB *SYUTU_A:RETURN 11660 LOCATE 0,18:PRINT "我が軍は敵方に帰順しました " 11670 BUGU%(PLAYR)=BUGU%(COM):KOKU%(PLAYR)=KOKU%(PLAYR)\2:MIN%(PLAYR)=MIN%(PLAYR)\3*2 11680 SUUZI=KOKU%(PLAYR):GOSUB *KANSUZI:LOCATE 60,13:PRINT KANZI$+" " 11690 SUUZI=MIN%(PLAYR):GOSUB *KANSUZI:LOCATE 60,11:PRINT KANZI$+" " 11700 RETURN 11710 *COM_KAIDAN:COM=A 11720 LOCATE 0,17:PRINT NAMAE$(R%(COM))+"が"+NAMAE$(R%(OOO))+"軍への共同攻撃要請の為に参っております " 11730 LOCATE 0,18:PRINT "要請を受け入れる断る " 11740 WHILE MOUSE(2,0)=0:WEND 11750 IF Y5>354 OR Y5<344 THEN 11750 11760 IF X5<=152 THEN GOSUB *ZEHI:IF ZEHI=0 THEN 11740 11770 IF X5>152 AND X5<=200 THEN MOKUTEKI%(COM)=-1:RETURN 11780 LOCATE 0,20:PRINT "有り難い･早速出陣準備を " 11790 MOKUTEKI%(PLAYR)=OOO:SYUTU=PLAYR:GOSUB *SYUTU_B 11800 LOCATE 0,17:PRINT "出陣します " 11810 RETURN 11820 *COM_GOURYU 11830 LOCATE 0,17:PRINT NAMAE$(R%(COM))+"軍が我が軍への合流を求めています･合流しますか " 11840 GOSUB *ZEHI:IF ZEHI=0 THEN PAT%(COM)=1:MOKUTEKI%(COM)=-1:RETURN 11850 LOCATE 0,18:PRINT NAMAE$(R%(COM))+"軍を吸収しました " 11860 BUKA=0:FOR I=0 TO 579 11870 IF SYO%(I)=R%(COM) THEN SYO%(I)=R%(PLAYR) 11880 IF SYO%(I)=R%(PLAYR) THEN BUKA=BUKA+1 11890 NEXT 11900 R%(COM)=-1:PAT%(COM)=-1:MOKUTEKI%(COM)=-1:RT%(COM)=-1 11910 RK=RK%(PLAYR)+RK%(COM):RH=RH%(PLAYR)+RH%(COM):HE=HE%(PLAYR)+HE%(COM):SK%(PLAYR)=(HE%(COM)*SK%(COM)+HE%(PLAYR)*SK%(PLAYR))\(HE%(COM)+HE%(PLAYR)):KOKU%(COM)=-1:KUG%(COM)=-1:MIN%(COM)=-1:BUGU%(COM)=-1 11920 IF RK>30000 THEN RK=30000 11930 IF RH>30000 THEN RH=30000 11940 IF HE>30000 THEN HE=30000 11950 SUUZI=RK:GOSUB *KANSUZI:LOCATE 60,7:PRINT KANZI$+" " 11960 SUUZI=RH:GOSUB *KANSUZI:LOCATE 60,8:PRINT KANZI$+" " 11970 SUUZI=BUKA:GOSUB *KANSUZI:LOCATE 60,9:PRINT KANZI$+" " 11980 SUUZI=HE:GOSUB *KANSUZI:LOCATE 60,10:PRINT KANZI$+" " 11990 SUUZI=SK%(PLAYR):GOSUB *KANSUZI:LOCATE 60,14:PRINT KANZI$+" " 12000 RK%(PLAYR):RH%(PLAYR)=RH:HE%(PLAYR)=HE:RETURN 12010 *USER_A 12020 IF Y2>173 AND Y2<=192 THEN *SEIRETU_A 12030 IF Y2>230 AND Y2<=250 THEN *KUGE_A 12040 IF Y2>250 AND Y2<=270 THEN *KOKUZIN 12050 RETURN 12060 *SEIRETU_A:B=0 12070 FOR I=0 TO 579 12080 IF SYO%(I)=R%(PLAYR) THEN B=B+1 ELSE 12160 12090 IF B>0 AND B<=6 THEN LOCATE (B-1)*14,18:PRINT NAMAE$(I) 12100 IF B>6 AND B<=12 THEN LOCATE (B-7)*14,19:PRINT NAMAE$(I) 12110 IF B>12 AND B<=18 THEN LOCATE (B-13)*14,20:PRINT NAMAE$(I) 12120 IF B>18 AND B<=24 THEN LOCATE (B-19)*14,21:PRINT NAMAE$(I) 12130 IF B>24 AND B<=30 THEN LOCATE (B-25)*14,22:PRINT NAMAE$(I) 12140 IF B>30 AND B<=36 THEN LOCATE (B-31)*14,23:PRINT NAMAE$(I) 12150 IF B>36 AND B<=42 THEN LOCATE (B-37)*14,24:PRINT NAMAE$(I) 12160 NEXT 12170 LOCATE 0,17:PRINT "部将一覧 " 12180 WHILE MOUSE(2,0)=-1:WEND:RETURN 12190 *KUGE_A:B=0 12200 FOR I=0 TO 579 12210 IF SYO%(I)<2000 THEN 12290 ELSE KUG=SYO%(I)-2000 12220 IF KUG=RT%(PLAYR) THEN B=B+1 ELSE 12290 12230 IF B>0 AND B<=6 THEN LOCATE (B-1)*14,18:PRINT NAMAE$(I) 12240 IF B>6 AND B<=12 THEN LOCATE (B-7)*14,19:PRINT NAMAE$(I) 12250 IF B>18 AND B<=24 THEN LOCATE (B-19)*14,21:PRINT NAMAE$(I) 12260 IF B>24 AND B<=30 THEN LOCATE (B-25)*14,22:PRINT NAMAE$(I) 12270 IF B>30 AND B<=36 THEN LOCATE (B-31)*14,23:PRINT NAMAE$(I) 12280 IF B>36 AND B<=42 THEN LOCATE (B-37)*14,24:PRINT NAMAE$(I) 12290 NEXT 12300 LOCATE 0,17:PRINT "この都市にいる公家一覧 " 12310 WHILE MOUSE(2,0)=-1:WEND:RETURN 12320 *KOKUZIN:B=0 12330 FOR I=0 TO 579 12340 IF SYO%(I)>=1000 THEN KOKU=SYO%(I)-1000 ELSE 12430 12350 IF KOKU=RT%(PLAYR) THEN B=B+1 ELSE 12430 12360 IF B>0 AND B<=6 THEN LOCATE (B-1)*14,18:PRINT NAMAE$(I) 12370 IF B>6 AND B<=12 THEN LOCATE (B-7)*14,19:PRINT NAMAE$(I) 12380 IF B>12 AND B<=18 THEN LOCATE (B-13)*14,20:PRINT NAMAE$(I) 12390 IF B>18 AND B<=24 THEN LOCATE (B-19)*14,21:PRINT NAMAE$(I) 12400 IF B>24 AND B<=30 THEN LOCATE (B-25)*14,22:PRINT NAMAE$(I) 12410 IF B>30 AND B<=36 THEN LOCATE (B-31)*14,23:PRINT NAMAE$(I) 12420 IF B>36 AND B<=42 THEN LOCATE (B-37)*14,24:PRINT NAMAE$(I) 12430 NEXT 12440 LOCATE 0,17:PRINT "この地方にいる国人･豪族一覧 " 12450 WHILE MOUSE(2,0)=-1:WEND:RETURN 12460 *USER_B:LOCATE 0,18:PRINT "暫くお待ちください " 12470 FOR I=0 TO 30:FOR P=0 TO 25:ITI%(I,P)=0:NEXT:NEXT 12480 LOCATE 0,18:PRINT " " 12490 IF X2<=450 THEN GOSUB *KAKUDAI_SYUKUSYO ELSE *MAP 12500 X1=800:Y1=70:GOSUB *HYOUZI_MAP 12510 RETURN 12520 *KAKUDAI_SYUKUSYO:WHILE MOUSE(2,0)=-1:WEND 12530 IF ZK=2 THEN LOCATE 46,1:PRINT HYOUZI$(2):ZK=6:ZX=30:ZY=25:RETURN 12540 IF ZK=4 THEN LOCATE 46,1:PRINT HYOUZI$(0):ZK=2:ZX=90:ZY=75:RETURN 12550 IF ZK=6 THEN LOCATE 46,1:PRINT HYOUZI$(1):ZK=4:ZX=45:ZY=38:RETURN 12560 *MAP:WHILE MOUSE(2,0)=-1:WEND 12570 MOUSE 4,460,10,630,60 12580 IF ZK=2 THEN ZX=90:ZY=75 12590 IF ZK=4 THEN ZX=45:ZY=38 12600 IF ZK=6 THEN ZX=30:ZY=25 12610 *MA:WHILE MOUSE(2,0)=0:WEND 12620 X3=MOUSE(0):Y3=MOUSE(1) 12630 WHILE MOUSE(2,0)=-1:WEND 12640 X1=X3*2-260:Y1=Y3*2:IF ZK=2 THEN Y1=65 12650 *HYOUZI_MAP:MOUSE 4,0,0,639,479 12660 GET@A (X1-ZX,Y1-ZY)-(X1+ZX-1,Y1+ZY-1),HYOUZI% 12670 PUT@A (640,140)-(640+ZX*2-1,140+ZY*2-1),HYOUZI%,PSET,ZK,ZK 12680 FOR A=10 TO 63 12690 TX=TX%(A)+640:TY=TY%(A):Q=SS%(A) 12700 IF X1-ZX>TX OR X1+ZY-2<TX THEN 12800 12710 IF Y1-ZX>TY OR Y1+ZY-2<TY THEN 12800 12720 IF Q=0 THEN 12800 12730 IF Q=2 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+640+11,(ZY-(Y1-TY))*ZK+140+11),A11%,MATTE,1,1,%15 12740 IF Q=1 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+640+11,(ZY-(Y1-TY))*ZK+140+11),A12%,MATTE,1,1,%15 12750 IF Q=4 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+640+10,(ZY-(Y1-TY))*ZK+140+11),A13%,MATTE,1,1,%15 12760 IF Q=3 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+640+12,(ZY-(Y1-TY))*ZK+140+11),A14%,MATTE,1,1,%15 12770 K=(ZX-X1+TX)*ZK\12:K1=(ZY-Y1+TY)*ZK\12 12780 IF K<0 OR K1<0 THEN 12800 12790 ITI%((ZX-X1+TX)*ZK\12,(ZY-Y1+TY)*ZK\12)=A+1000 12800 NEXT 12810 FOR A=1 TO SRS 12820 TX=X1%(A)+640:TY=Y1%(A):Q=PAT%(A)+BUGU%(A) 12830 IF X1-ZX>TX OR X1+ZX-2<TX THEN 13020 12840 IF Y1-ZY>TY OR Y1+ZY-2<TY THEN 13020 12850 IF PAT%(A)=0 AND BUGU%(A)=0 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+644,(ZY-(Y1-TY))*ZK+151),A1%,MATTE,1,1,%15 12860 IF PAT%(A)=0 AND BUGU%(A)=1 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+644,(ZY-(Y1-TY))*ZK+151),A2%,MATTE,1,1,%15 12870 IF PAT%(A)=1 AND BUGU%(A)=0 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+644,(ZY-(Y1-TY))*ZK+151),A1%,MATTE,1,1,%15 12880 IF PAT%(A)=1 AND BUGU%(A)=1 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+644,(ZY-(Y1-TY))*ZK+151),A2%,MATTE,1,1,%15 12890 IF Q=3 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+651,(ZY-(Y1-TY))*ZK+151),A3%,MATTE,1,1,%15 12900 IF Q=4 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+651,(ZY-(Y1-TY))*ZK+151),A4%,MATTE,1,1,%15 12910 IF Q=5 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+640+11,(ZY-(Y1-TY))*ZK+140+11),A5%,MATTE,1,1,%15 12920 IF Q=6 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+640+11,(ZY-(Y1-TY))*ZK+140+11),A6%,MATTE,1,1,%15 12930 IF Q=7 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+640+11,(ZY-(Y1-TY))*ZK+140+11),A7%,MATTE,1,1,%15 12940 IF Q=8 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+640+11,(ZY-(Y1-TY))*ZK+140+11),A8%,MATTE,1,1,%15 12950 IF Q=9 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+640+11,(ZY-(Y1-TY))*ZK+140+11),A9%,MATTE,1,1,%15 12960 IF Q=10 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+640+11,(ZY-(Y1-TY))*ZK+140+11),A10%,MATTE,1,1,%15 12970 IF Q=13 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+640+4,(ZY-(Y1-TY))*ZK+140+11),A1%,MATTE,1,1,%15 12980 IF Q=14 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+640+4,(ZY-(Y1-TY))*ZK+140+11),A2%,MATTE,1,1,%15 12990 IF PAT%(A)=20 OR PAT%(A)=21 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+646,(ZY-(Y1-TY))*ZK+153),A15%,MATTE,1,1,%15:GOTO 13010 13000 IF PAT%(A)=22 OR PAT%(A)=23 THEN PUT@A ((ZX-(X1-TX))*ZK+640,(ZY-(Y1-TY))*ZK+140)-((ZX-(X1-TX))*ZK+640+6,(ZY-(Y1-TY))*ZK+140+13),A16%,MATTE,1,1,%15:GOTO 13010 13010 ITI%((ZX-X1+TX)*ZK\12,(ZY-Y1+TY)*ZK\12)=A 13020 NEXT 13030 DIM W%(40000):GET@A (640,140)-(640+359,439),W%:PUT@A (0,0)-(359,299),W% 13040 ERASE W% 13050 RETURN 13060 *SEIRETU:B=0:BTN=0 13070 FOR I=0 TO 579 13080 IF SYO%(I)=R%(BUKA) THEN B=B+1:BUKA%(B)=I ELSE 13160 13090 IF B>0 AND B<=6 THEN LOCATE (B-1)*14,18:PRINT NAMAE$(I) 13100 IF B>6 AND B<=12 THEN LOCATE (B-7)*14,19:PRINT NAMAE$(I) 13110 IF B>12 AND B<=18 THEN LOCATE (B-13)*14,20:PRINT NAMAE$(I) 13120 IF B>18 AND B<=24 THEN LOCATE (B-19)*14,21:PRINT NAMAE$(I) 13130 IF B>24 AND B<=30 THEN LOCATE (B-25)*14,22:PRINT NAMAE$(I) 13140 IF B>30 AND B<=36 THEN LOCATE (B-31)*14,23:PRINT NAMAE$(I) 13150 IF B>36 AND B<=42 THEN LOCATE (B-37)*14,24:PRINT NAMAE$(I) 13160 NEXT:IF B>43 THEN B=42 13170 WHILE BTN=0 13180 WHILE MOUSE(2,0)=0:WEND 13190 X1=MOUSE(0)\112:Y1=MOUSE(1)\19.2!-18 13200 R=6*Y1+X1+1 13210 IF R>B THEN BTN=0 ELSE BTN=1 13220 WEND 13230 P=BUKA%(R) 13240 RETURN 13250 *ZEHI:WHILE MOUSE(2,0)=-1:WEND 13260 LOCATE 0,19:PRINT " 是非 " 13270 WHILE MOUSE(2,0)=0:WEND 13280 X5=MOUSE(0):Y5=MOUSE(1) 13290 IF Y5>374 OR Y5<354 THEN 13270 13300 IF X5<=40 THEN ZEHI=1 13310 IF X5>40 AND X5<=80 THEN ZEHI=0 13320 RETURN 13330 *COM_KASSEN 13340 IF O=PLAYR THEN TEKI=A ELSE TEKI=O 13350 FOR I=1 TO 5:BEEP 1:WAIT 20:BEEP 0:WAIT 20:NEXT 13360 WHILE MOUSE(2,0)=0 13370 LOCATE 0,20:PRINT "現在我が軍は"+NAMAE$(R%(TEKI))+"軍と交戦中 " 13380 WAIT 30 13390 LOCATE 0,20:PRINT " " 13400 WAIT 30 13410 WEND 13420 RETURN 4260 13430 *USER_TAIKYAKU 13440 BEEP 1:WAIT 100:BEEP 0 13450 LOCATE 0,21:PRINT "我が軍は壊滅状態です･これ以上の戦は無理です " 13460 RETURN 13470 *USER_HAISEN 13480 BEEP 1:WAIT 100:BEEP 0 13490 LOCATE 0,21:PRINT "我が軍は壊滅状態です･これ以上の戦は無理です " 13500 LOCATE 0,20:PRINT "本拠地を放棄しますか " 13510 GOSUB *ZEHI:IF ZEHI=0 THEN RETURN 13520 LOCATE 0,21:PRINT "とりあえず出陣します " 13530 GOSUB *YASAGASI 13540 IF RT%(PLAYR)=-1 THEN GOSUB *GOURYU_B 13550 RETURN 13560 *USER_ZENMETU 13570 FOR I=1 TO 5:BEEP 1:WAIT 20:BEEP 0:WAIT 20:NEXT 13580 LOCATE 0,20:PRINT "我が軍は全滅しました " 13590 HE%(PLAYR)=-1:PAT%(PLAYR)=-1:WHILE MOUSE(2,0)=0:WEND 13600 CLS:LOCATE 32,11:PRINT "強制終了 ":END 13610 *ENDING:BEEP 1:WAIT 120:BEEP 0 13620 LOCATE 0,19:PRINT "長い戦乱の時は終わった･･････ " 13630 LOCATE 0,20:PRINT "だが,この後百年も満たないうちに,未曾有の大乱が訪れようとは････ ":WAIT 400 13640 CLS:WIDTH 80,25:GOTO *ENDING_A 13650 *BUSYOU 13660 FOR I=0 TO 579:RANDOMIZE TIME:RD=FIX(RND*9)+NEN:MUHON=FIX(RND*20)-BC%(I):NANKA=FIX(RND*50) 13670 IF SYO%(I)=NEN THEN GOSUB *SIKAN 13680 IF DEI%(I)<=RD THEN GOSUB *SIBOU 13690 IF SYO%(I)>=2000 AND SYO%(I)<3000 THEN GOSUB *KUGERAIHOU 13700 IF SYO%(I)>=1000 AND SYO%(I)<2000 THEN GOSUB *HANRAN 13710 IF SYO%(I)<600 AND MUHON<=-4 THEN GOSUB *MUHON 13720 NEXT 13730 GOSUB *SYUUNYUU 13740 GOSUB *NANKA2 13750 RETURN 13760 *SIBOU:BEEP 1:WAIT 100 13770 LOCATE 0,18:PRINT NAMAE$(I)+"が死亡しました " 13780 IF SYO%(I)=R%(PLAYR) R%(PLAYR)<>I THEN GOSUB *USER_SIBOU 13790 IF I>=550 AND I<=553 THEN *TENNOUKE 13800 FOR P=1 TO SRS 13810 IF R%(P)=I THEN *ATOTUGI 13820 NEXT 13830 SYO%(I)=0:RETURN 13840 *ATOTUGI:ATOTUGI=0:BT=0:IF R%(PLAYR)=I THEN *USER_ATOTUGI 13850 LOCATE 0,18:PRINT NAMAE$(I)+"軍の総大将が死亡しました " 13860 IF I>=545 AND I<=547 THEN GOSUB *TENNOUEK 13870 FOR L=1 TO 579 13880 IF SYO%(L)=I THEN IF BT%(L)>BT THEN BT=BT%(L):ATOTUGI=L 13890 NEXT 13900 IF BT=0 THEN PAT%(P)=-1:HE%(P)=-1:SYO%(I)=0:RETURN 13910 *ATOTUGI_A:FOR L=1 TO 579 13920 IF SYO%(L)=I THEN SYO%(L)=ATOTUGI 13930 NEXT 13940 LOCATE 0,19:PRINT NAMAE$(I)+"軍の勢力は"+NAMAE$(ATOTUGI)+"が受け継ぎます ":SYO%(I)=0:RETURN 13950 *KUGERAIHOU:RANDOMIZE TIME:RRD=FIX(RND*10) 13960 SYO=SYO%(I)-2000 13970 IF SYO<>RT%(PLAYR) THEN RETURN 13980 IF RRD<=6 THEN RETURN 14000 BEEP 1:WAIT 90:BEEP 0 14005 IF RRD=7 OR RRD=8 THEN *KUGENANKA 14010 LOCATE 0,18:PRINT NAMAE$(I)+"が参られております " 14020 LOCATE 0,19:PRINT NAMAE$(I)+" ｢宮殿造営の資金を援助願いたい｣ " 14030 RK=RK%(PLAYR)\30+1:SUUZI=RK:GOSUB *KANSUZI 14040 LOCATE 0,20:PRINT NAMAE$(I)+"は金"+KANZI$+"を持っていきました " 14050 RK%(PLAUR)=RK%(PLAYR)-RK:IF RK%(PLAYR)<0 THEN RK%(PLAYR)=0 14060 SUUZI=RK%(PLAYR):GOSUB *KANSUZI:LOCATE 60,7:PRINT KANZI$ 14070 KUG%(PLAYR)=KUG%(PLAYR)+1:IF KUG%(PLAYR)<100 THEN KUG%(PLAYR)=100 14080 SUUZI=KUG%(PLAYR):GOSUB *KANSUZI:LOCATE 60,12:PRINT KANZI$ 14090 RETURN 14100 *HANRAN:RANDOMIZE TIME:RRD=FIX(RND*10) 14110 FOR L=1 TO SRS:SYO=SYO%(I)-1000 14120 IF SYO<>RT%(L) THEN 14140 14130 KOKU=KOKU%(L)\10+RDD-5:IF KOKU<=5 THEN GOSUB *KOKUZIN_HANRAN 14140 NEXT 14150 *KOKUZIN_HANRAN:BEEP 1:WAIT 40:WAIT 0 14160 IF KOKU>=3 THEN RH%(L)=RH%(L)-RH%(L)\50 14170 IF KOKU<3 AND KOKU>=0 THEN RH%(L)=RH%(L)-RH%(L)\40:MIN%(L)=MIN%(L)-MIN%(L)\10 14180 IF KOKU<0 THEN RH%(L)=RH%(L)-RH%(L)\40:MIN%(L)=MIN%(L)-MIN%(L)\10:HE%(L)=HE%(L)-HE%(L)\20 14190 LOCATE 0,18:PRINT TOSI$(RT%(L))+"で国人が暴れています " 14200 IF L<>PLAYR THEN RETURN 14210 SUUZI=RH%(PLAYR):GOSUB *KANSUZI:LOCATE 60,8:PRINT KANZI$ 14220 SUUZI=MIN%(PLAYR):GOSUB *KANSUZI:LOCATE 60,11:PRINT KANZI$ 14230 SUUZI=HE%(PLAYR):GOSUB *KANSUZI:LOCATE 60,10:PRINT KANZI$ 14240 RETURN 14250 *MUHON:O=SYO%(I) 14260 FOR L=1 TO SRS 14270 IF R%(L)=O THEN RETURN 14280 NEXT:BEEP 1:WAIT 100:BEEP 0 14290 LOCATE 0,18:PRINT NAMAE$(R%(O))+"の部将"+NAMAE$(I)+"が叛乱をおこしました " 14300 HE%(O)=HE%(O)-HE%(O)\10:SK%(O)=SK%(O)-SK%(O)\5 14310 SUUZI=HE%(PLAYR):GOSUB *KANSUZI:LOCATE 60,10:PRINT KAMZI$ 14320 SUUZI=SK%(PLAYR):GOSUB *KANSUZI:LOCATE 60,14:PRINT KAMZI$ 14330 RETURN 14340 *SIKAN 14350 IF SIKAN%(I)=-1 OR SIKAN%(I)=-2 THEN *TENNOUKE_A 14360 FOR L=1 TO SRS 14370 IF RT%(L)=SIKAN%(I) THEN *SIKAN_A 14380 NEXT:RETURN 14390 *SIKAN_A:BUKA=0 14400 SYO%(I)=R%(L) 14410 IF L=PLAYR THEN LOCATE 0,18:PRINT NAMAE$(I)+"が加わりました " 14420 FOR L=0 TO 579 14430 IF SYO%(L)=R%(PLAYR) AND L<>R%(PLAYR) THEN BUKA=BUKA+1 14440 NEXT 14450 SIIZI=BUKA:GOSUB *KANSUZI:LOCATE 60,9:PRINT KANZI$:RETURN 14460 *USER_SIBOU:BUKA=0 14470 FOR L=0 TO 579 14480 IF SYO%(L)=R%(PLAYR) AND L<>R%(PLAYR) THEN BUKA=BUKA+1 14490 NEXT 14500 SIIZI=BUKA:GOSUB *KANSUZI:LOCATE 60,9:PRINT KANZI$:RETURN 14510 *USER_ATOTUGI:BK=0 14520 LOCATE 0,18:PRINT NAMAE$(I)+"が死んでしまいました " 14530 FOR L=0 TO 579 14540 IF SYO%(L)=R%(PLAYR) AND L<>R%(PLAYR) THEN BK=BK+1:BUKA%(BUKA)=L 14550 NEXT 14560 IF BUKA=0 THEN LOCATE 0,19:PRINT "後継者がいません ":GOTO *USER_ZENMETU 14570 FOR L=1 TO BK 14580 IF BK>43 THEN 14650 14590 IF BK>0 AND BK<=6 THEN LOCATE (BK-1)*14,18:PRINT NAMAE$(BUKA%(I)) 14600 IF BK>6 AND BK<=12 THEN LOCATE (BK-7)*14,19:PRINT NAMAE$(BUKA%(I)) 14610 IF BK>12 AND BK<=18 THEN LOCATE (BK-13)*14,20:PRINT NAMAE$(BUKA(I)) 14620 IF BK>18 AND BK<=24 THEN LOCATE (BK-19)*14,21:PRINT NAMAE$(BUKA%(I)) 14630 IF BK>24 AND BK<=30 THEN LOCATE (BK-25)*14,21:PRINT NAMAE$(BUKA%(I)) 14640 IF BK>36 AND BK<=42 THEN LOCATE (BK-37)*14,20:PRINT NAMAE$(BUKA%(I)) 14650 NEXT 14660 LOCATE 0,17:PRINT "後継者をえらいでください " 14670 WHILE MOUSE(2,0)=0:WEND 14680 X5=MOUSE(0)\112:Y5=FIX(MOUSE(1)-344)/19.5!) 14690 R=X5+Y5*6+1:IF R<1 OR R>BK THEN 14690 14700 LOCATE 0,18:PRINT NAMAE$(BUKA%(R))+"ですか " 14710 GOSUB *ZEHI:IF ZEHI=0 THEN 14570 14720 FOR L=O TO 579 14730 IF SYO%(L)=R%(PLAYR) THEN SYO%(L)=BUKA%(R) 14740 NEXT:SYO%(I)=0:R%(PLAYR)=BUKA%(R) 14750 CLS 1:LOCATE 0,18:PRINT NAMAE$(R%(PLAYR))+"が受け継ぎます " 14760 RETURN 14770 *SYUUNYUU 14780 IF TUKI<=3 OR TUKI>=12 THEN P=10 14790 IF TUKI>=4 AND TUKI<=8 THEN P=15 14800 IF TUKI=9 THEN P=500 14810 IF TUKI=10 THEN P=1000 14820 IF TUKI=11 THEN P=400 14830 FOR L=1 TO SRS 14840 KOKU%(L)=KOKU%(L)-1:IF KOKU%(L)<0 THEN KOKU%(L)=0 14850 MIN%(L)=MIN%(L)-1:IF MIN%(L)<0 THEN MIN%(L)=0 14860 IF RT%(L)=-1 THEN 14910 14870 IF PAT%(L)>=3 AND PAT%(L)<=9 THEN 14790 14880 IF PAT%(L)=20 OR PAT%(L)=21 OR PAT%(L)=23 THEN 14910 14890 RH=RH%(L)+FIX(TS%(RT%(L))*P*MIN%(L)/100)+1 14900 IF RH>30000 THEN RH%(L)=30000 ELSE RH%(L)=RH 14910 NEXT 14920 SUUZI=RH%(PLAYR):GOSUB *KANSUZI:LOCATE 60,8:PRINT KANZI$ 14930 SUUZI=KOKU%(PLAYR):GOSUB *KANSUZI:LOCATE 60,13:PRINT KANZI$ 14940 SUUZI=MIN%(PLAYR):GOSUB *KANSUZI:LOCATE 60,11:PRINT KANZI$ 14950 RETURN 14960 *NANKA2 14970 IF NANKA=19 OR NANKA=18 THEN GOSUB *DENGAKU 14980 IF NANKA=17 THEN GOSUB *SINKOUSAI 14990 IF NANKA=16 THEN GOSUB *BOUEKI 15000 RETURN 15010 *TENNOUKE 15020 IF I=545 THEN ATOTUGI=546:NAMAE$(546)="後村上天皇" 15030 IF I=546 THEN ATOTUGI=547:NAMAE$(547)="長慶天皇" 15040 IF I=547 THEN ATOTUGI=548:NAMAE$(548)="後亀山天皇" 15050 IF I=550 THEN ATOTUGI=551:NAMAE$(551)="崇光天皇" 15060 IF I=551 THEN ATOTUGI=552:NAMAE$(552)="後光厳天皇" 15070 IF I=552 THEN ATOTUGI=553:NAMAE$(553)="後円融天皇" 15080 IF I=553 THEN ATOTUGI=554:NAMAE$(554)="後小松天皇" 15090 IF SYO%(ATOTUGI)=0 THEN RETURN 15100 IF SIKAN%(ATOTUGI)=-1 THEN LOCATE 0,18:NAMAE$(I)+"が崩御されました･"+NAMAE$(ATOTUGI)+"が即位します ":RETURN *ATOTUGI_A 15110 IF SIKAN%(ATOTUGI)=-2 THEN LOCATE 0,18:NAMAE$(I)+"が崩御されました･"+NAMAE$(ATOTUGI)+"が即位します ":SYO%(ATOTUGI)=SYO%(I):SYO%(I)=0:RETURN 15120 *TENNOUKE_A 15130 IF SYO%(I-1)=0 THEN RETURN 15140 SYO%(I)=SYO%(I-1):IF SYO%(I)<>R%(PLAYR) THEN RETURN 15150 LOCATE 0,18:PRINT NAMAE$(I)+"が元服しました " 15160 RETURN 15170 *DENGAKU 15180 RRD=FIX(RND*SRS)+1 15190 MIN%(RRD)=MIN%(RRD)+10:IF MIN%(RRD)>100 THEN MIN%(RRD)=100 15200 IF RRD<>PLAYR THEN RETURN ELSE BEEP 1:WAIT 50:BEEP 0 15210 LOCATE 0,18:PRINT "民衆が田楽をたのしんでいます " 15220 SUUZI=MIN%(PLAYR):GOSUB *KANSUZI:LOCATE 60,11:PRINT KANZI$:RETURN 15230 *SINKOUSAI 15240 RRD=FIX(RND*SRS)+1:IF RT%(RRD)=-1 THEN RETURN 15250 MIN%(RRD)=MIN%(RRD)+15:IF MIN%(RRD)>100 THEN MIN%(RRD)=100 15260 RK%(RRD)=RK%(RRD)+TK%(RT%(RRD))*100 15270 IF RK%(RRD)>30000 THEN RK%(RRD)=30000 15280 IF RRD<>PLAYR THEN RETURN ELSE BEEP 1:WAIT 50:BEEP 0 15290 LOCATE 0,18:PRINT "神幸祭がおこなわれています " 15300 SUUZI=MIN%(PLAYR):GOSUB *KANSUZI:LOCATE 60,11:PRINT KANZI$ 15310 SUUZI=RK%(PLAYR):GOSUB *KANSUZI:LOCATE 60,7:PRINT KANZI$:RETURN 15320 *BOUEKI 15330 FOR L=1 TO SRS 15340 IF RT%(L)=40 OR RT%(L)=16 THEN *BOUEKI_A 15350 IF RT%(L)=30 THEN *BOUEKI_A 15360 NEXT:RETURN 15370 *BOUEKI_A 15380 RK%(L)=RK%(L)+TK%(RT%(L))*500 15390 IF RK%(L)>30000 THEN RK%(L)=30000 15400 IF RRD<>PLAYR THEN RETURN ELSE BEEP 1:WAIT 50:BEEP 0 15410 LOCATE 0,18:PRINT "明との貿易により大量の貨幣が入りました " 15420 SUUZI=RK%(PLAYR):GOSUB *KANSUZI:LOCATE 60,7:PRINT KANZI$:RETURN 15430 *USER_KIROKU:LOCATE 0,18:PRINT "記録中 " 15440 KILL "JOUKYOU.DAT":KILL "SYO.DAT" 15450 OPEN "O",#1,"JOUKYOU.DAT" 15460 FOR I=1 TO SRS 15470 WRITE #1,R%(I),RT%(I),X1%(I),Y1%(I),PAT%(I),BUGU%(I),RK%(I),RH%(I),HE%(I),SK%(I),MIN%(I),KUG%(I),KOKU%(I),MOKUTEKI%(I) 15480 NEXT 15490 CLOSE#1:OPEN "A",#1,"JOUKYOU.DAT" 15500 WRITE #1,NEN,TUKI,SYUU,PLAYR 15510 CLOSE #1:LOCATE 0,18:PRINT " " 15520 OPEN "O",#2,"SYO.DAT" 15530 FOR I=0 TO 579 15540 WRITE#1,SYO%(I) 15550 NEXT 15560 CLOSE#2 15570 RETURN 15580 *LOAD:Z=0 15590 OPEN "I",#1,"JOUKYOU.DAT" 15600 WHILE EOF(1)=0:Z=Z+1:WEND 15610 FOR I=1 TO Z 15620 IF I=Z THEN INPUT #1,A,B,C,D:NEN=A:TUKI=B:SYUU=C:PLAYR=D:GOTO 15650 15630 INPUT #1,A,B,C,D,E,F,G,H,I1,J,K,L,M,N,O 15640 R%(Z)=A:RT%(Z)=B:X1%(Z)=C:Y1%(Z)=D:PAT%(Z)=E:BUGU%(Z)=F:RK%(Z)=G:RH%(Z)=H:HE%(Z)=I1:SK%(Z)=J:MIN%(Z)=K:KUG%(Z)=L:KOKU%(Z)=M:MOKUTEKI%(Z)=N,SYO%(I)=O 15650 NEXT 15660 OPEN "I",#2,"SYO.DAT" 15670 FOR I=0 TO 579 15680 INPUT#1,SYO:SYO%(I)=SYO 15690 NEXT 15700 CLOSE#2 15710 FOR I=1 TO SRS 15720 IF R%(I)=546 THEN NAMAE$(546)="後村上天皇" 15730 IF R%(I)=547 THEN NAMAE$(546)="長慶天皇" 15740 IF R%(I)=548 THEN NAMAE$(546)="後亀山天皇" 15750 NEXT 15760 GOTO 1380 15770 *ENDING_A 15780 FOR I=0 TO 579 15790 LOCATE 34,23:PRINT NAMAE$(I) 15800 LOCATE 33,24:PRINT " " 15810 WAIT 20 15820 NEXT 15830 FOR I=0 TO 25:LOCATE 33,24:PRINT " ":WAIT 20:NEXT 15840 LOCATE 39,23:PRINT "完" 15850 FOR I=0 TO 12 15860 LOCATE 33,24:PRINT " " 15870 WAIT 20 15880 NEXT:WHILE MOUSE(2,1)=0:WEND:END 15890 *KUGENANKA 15900 LOCATE 0,18:PRINT NAMAE$(I)+"が参りました " 15910 LOCATE 0,19:PRINT NAMAE$(R%(PLAYR))+"殿,ご機嫌うるわしくなによりに存じます " 15920 IF KUGE%(PLAYR)<50 THEN RETURN 15930 RK=RK%(PLAYR)+KUG%(PLAYR)*100:IF RK>30000 THEN RK%(PLAYR)=30000 ELSE RK%(PLAYR)=RK 15940 LOCATE 0,20:PRINT "どうぞお納め下さい " 15950 SUUZI=RK%(PLAYR):GOSUB *KANSUZI:LOCATE 60,7:PRINT KANZI$:RETURN